AW: Pivot Aktuallisierung über mehrere Arbeitsblätter
17.12.2024 10:57:41
Yal
Hallo Wagge,
ich würde fast behaupten, dass könntest Du aus eigene Kraft erreichen (nicht zur Strafe, sondern zur Übung):
- öffne das Menüband-Menü und füge den Menü-Hauptkategorie "Entwicklertool" dazu
- darin findest Du ein Schalter "Makro aufzeichen". Anklicken. Makro-Aufzeichnung starten
- erste Pivot rechtsklicken und "Aktualisieren"
- zweite Pivot, Rechtsklick, aktualisieren,
- Makroaufzeichnung beenden
- auf dem Schalter "Visual Basic" gehen
- Du bist im VBA-Editor. Rechts im Projekt Explorer der "Module"-Knoten aufmachen und in Modul1 den Code anschauen. Sieht ungefähr so aus:
Sub Makro1()
'
' Makro1 Makro
'
Range("H17").Select
ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
Range("H26").Select
ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh
End Sub
Eine andere Weg wäre über den Menü Daten "Alle aktualisieren". Der aufgenommenen Code sieht so aus:
Sub Makro2()
ActiveWorkbook.RefreshAll
End Sub
Prüfe, ob den "alle Aktualisieren" alle deine Pivottabelle aktualisiert. Dann hättest Du damit eine Lösung. Wenn nicht, musste man die erste Aufnahme rumbasteln, sodass es über alle Arbeitsblätter und Pivot läuft, um diese einzel zu aktualisieren:
Sub AllePivot_aktualisieren()
Dim ws As Worksheet
Dim PT As PivotTable
For Each ws In ActiveWorkbook.Worksheets
For Each PT In ws.PivotTables
PT.PivotCache.Refresh
Next PT
Next ws
End Sub
VG
Yal