Alle Pivots in Arbeitsmappe automatisch nach Änderung aktualisieren?
Hallo,
ich habe in meiner Excel Arbeitsmappe in unterschiedlichen Tabellenblättern mehrere Pivots. Ich möchte allerdings, dass wenn ich in einer den Filter ändere, dass alle anderen auch automatisch aktualisiert werden. Ich kam bisher nur soweit, indem es sich aktualisiert, wenn ich den Reiter wechsel. Wie muss ich das ganze anpassen, dass es wie gewünscht funktioniert?
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pt As PivotTable
For Each pt In Sh.PivotTables
pt.RefreshTable
Next
End Sub
LG Syrena
1 Antwort
Hallo Syrena,
basieren die verschiedenen Pivot-Tabellen auf den gleichen Daten? Wenn ja, dann kannst du die Pivot-Tabelle kopiere und in den verschiedenen Arbeitsblättern einbauen. Dann musst du nur noch die Pivot-Tabellen über einen Datenschnitt miteinander verbinden.
Sobald du dann in einer Pivot-Tabelle filterst, wird dieser Filter automatisch mit auf die anderen Pivot-Tabellen angewendet.
-----------------
Bei der VBA-Lösung von dir benötigst du ein anderen Auslöser (Event), bei dem der VBA-Code ausgeführt wird.
Aktuell wird der Code nur ausgeführt wenn ein Arbeitsblatt aktiviert bzw. angewählt wird. Versuch es mal mit dem Workbook_SheetChange Event. Sie unten:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim pt As PivotTable
For Each pt In Sh.PivotTables
pt.RefreshTable
Next
End Sub