Mit VBA den Filter einer Pivot-Tabelle ändern
19.04.2017 17:09:21
Andrea
ich bin leider ein VBA-Laie und hoffe, dass ihr mir helfen könnt.
Ich habe in einem Excel-Sheet mehrere Pivot-Tabellen, die alle den Filter "Sachbearbeiter" haben. Nun möchte ich, dass wenn ich über den Filter der ersten Pivot-Tabelle einen Sachbearbeiter auswähle (z. B. xy), dass dann bzw. durch ein Makro in allen anderen Pivot-Tabellen der Sachbearbeiter entsprechend angepasst wird.
Dazu habe ich folgendes Makro aufgezeichnet, indem ich die Zelle A4 kopiert habe (dort ist der Filter der ersten Pivot-Tabelle, der auf xy steht. Dann habe ich den Filter der 2. Pivot-Tabelle geöffnet und mit Srtg+v xy eingefügt:
Sub SB_übertragen()
' SB_übertragen Makro
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.PivotTables("PivotTable2").PivotFields( _
"[Mitarbeiter].[Mitarbeiter].[Mitarbeiter]").VisibleItemsList = Array( _
"[Mitarbeiter].[Mitarbeiter].&[xy]")
End Sub
Wie kann ich das variabel gestalten und wie kann ich es erreichen, dass der Wert aus A4 bzw. aus dem Filter der 1. Pivot-Tabelle alle anderen übertragen wird.
Vielen Dank im Voraus!
Viele Grüße
Andrea