VBA til ændring af reportfilter i flere pivottabeller over flere ark

Det skulle kunne lade sig gøre. Er der mulighed for at sende en kopi af filen - @-adresse under profil.

desværre.. fortrolige oplysninger..

Så kunne alternativet være en model af "virkeligheden"

Ja det er rigtigt.. men det vil tage lidt tid at lave..Jeg skal forsøge.. men der går nok lidt tid inden den er klar.

Ok..

Vent blot med at konstruere modellen. Vi prøver i første omgang uden.

Const månedsFelt = "Måned"                          'evt. justeres
Rem Rapport-måned skiftes - månedsforkortelse anvendes: jan feb mar...
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then                '<--- månedsforkortelse
        findPivot Target
    End If
   
    MsgBox ("Rapportmåned er skiftet")
End Sub
Sub findPivot(måned)
Dim sh As Worksheet, antal As Byte, pt As PivotTable
    antal = 0
    For Each sh In ActiveWorkbook.Sheets
        sh.Select
        For Each pt In ActiveSheet.PivotTables
            indstilPivot måned, pt.Name
        Next pt
    Next sh
End Sub
Private Sub indstilPivot(måned, pivotNavn)
    With ActiveSheet.PivotTables(pivotNavn).PivotFields(månedsFelt)
        For Each m In .PivotItems
            If LCase(m.Name) = måned Then
                m.Visible = True
            Else
                m.Visible = False
            End If
        Next
    End With
End Sub

Noget nyt?