VBA kode; Samme filtre på flere pivottabeller
Jeg har et ark i excel med 4 pivottabeller (forskellige datakilder). Jeg vil gerne have alle fire tabeller til at indstille filter til celle A1.Jeg har sat denne kode ind:
__________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Dim pt As PivotTable
Set pt = Worksheets("Fravær spec").PivotTables("Pivottabel2")
pt.ClearAllFilters
pt.PivotFields("personnummer").PivotFilters.Add Type:=xlCaptionContains, Value1:=Range("A1").Text
End Sub
__________________________________________________
Koden fungerer fint på en enkelt pivot tabel. Kan jeg ændre/tilrette den så den dækker flere pivot tabeller?
