ich arbeite das erste Mal mit VBA und möchte, dass wenn ich einen PivotFilter veränder, die Filter der anderen beiden Pivots auch verändert wird.
Alle 3 Pivots können nach "Name" gefiltert werden.
Ich habe schon einen Code (s.u.), der funktioniert auch zumindest für 2 Pivots.
Das große Problem dabei ist, dass der Code bei jedem Klick in das Tabellenblatt ausgeführt wird. Kann mir hierbei jemand weiterhelfen?
Falls ich das mit eurer Hilfe irgendwie hinbekomme, wäre der nächste Schritt die dritte Pivot noch miteinzubeziehen...
Ich habe schon stundenlang im Netz nach der Lösung recherchiert (auch hier), ich komme aber nicht weiter, kenne mich mit VBA so gut wie gar nicht aus.
Viele Grüße
Hier noch der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
Set pt = Worksheets("Tabelle1").PivotTables("PivotTable1")
Set Field = pt.PivotFields("Name")
NewCat = Worksheets("Tabelle1").Range("B18").Value
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
End Sub