Hallo Leute!
Ich sitze nun schon eine Zeit lang an dem Problem aber finde keine wirkliche Antwort! Ich hoffe ihr könnt mir helfen!
Das Ziel was ich habe ist den Filter mehrerer Pivottabellen in einem Tabellenblatt durch unterschiedliche Zellinhalte zu steuern.
Ich habe also eine Liste in der Zelle A119 die erste Pivottabelle ändern soll, A120 die zweite und so weiter. Über den folgenden
Code habe ich es geschafft dies für eine Pivot-tabelle zu machen, jedoch nicht für mehr als eine:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A20:A21")) Is Nothing Then Exit Sub
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
Set pt = Worksheets("Analysetool").PivotTables("1")
Set Field = pt.PivotFields("Art No")
NewCat = Worksheets("Analysetool").Range("B119").Value
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
End Sub
Falls hilfreich: Insgesamt geht es um dreißig Tabellen, die Nächsten Zellen die den Filter setzen sind A120, A121 [...] und die anderen
Tabellen heißen 2, 3, 4 [...]
Vielen Dank im Voraus!
|