VBA - Pivottabelle aktualisieren (allg. Frage)
Guten Morgen!
Wie ich im www erfahren habe, kann man mit dem Befehl
ActiveWorkbook.RefreshAll
sämtliche Pivottabellen in der Arbeitsmappe aktualisieren.
Gibt es einen ähnlichen Befehl nur für das jeweils aktive Blatt?
Ciao
Tom
Antwort schreiben
Antwort 1 von coros vom 30.09.2021, 08:28 Options
Hallo Tom,
das müsste
Sheets("Dein Blattname").PivotTables("Name der Pivot Tabelle").RefreshTable
sein.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Tomschi vom 30.09.2021, 09:36 Options
Hallo Oliver!
Danke für die prompte Antwort!
Verstehe ich Dich richtig, dass ich so sämtliche vorhandenen Pivottabellen einzeln aktualisierern muss?
Einen Befehl für das einzelne Blatt inkl. ALLER Pivottabellen gibt es also nicht?
Ciao
Tom
Antwort 3 von coros vom 30.09.2021, 09:42 OptionsLösung
Hallo Tom,
nur über eine Schleife meines Wissens nach machbar.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.Option Explicit
Sub Alle_Pivottabellen_aktualisieren()
Dim ptPivottabelle As PivotTable
For Each ptPivottabelle In ActiveSheet.PivotTables
ptPivottabelle.RefreshTable
Next
End Sub
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von coros vom 30.09.2021, 10:03 Options
Hallo Tomschi,
wobei ich gearde festgestellt habe, dass wenn ich den Befehl aus meiner AW1 ausführe und mehrere Pivottabellen auf der Seite habe , bei mir (Excel2007) alle aktualisiert werden, auch wenn nur eine in der Tabelle angegeben ist.
Teste das mal bei Dir.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von Tomschi vom 30.09.2021, 10:31 Options
Hallo Oliver!
Danke für Deine Unterstützung!
Antwort 3 funktioniert bei mir einwandfrei --> DANKE!
zu Antwort 4:
Bei mir Excel 2003 (SP3) wird nur die jeweils genannte Pivottabelle aktualisiert. Die anderen nicht.
Ciao
Tom
Antwort 6 von coros vom 30.09.2021, 10:39 Options
Hallo Tom,
zu AW4: Das was ich dort geschrieben habe, stimmt nicht. Ich hatte das in meinem Beispiel mir einfach gemacht und 2 Pivottabellen mit exakt dem gleichen Datenbereich erstellt. Das scheint dann so abgehandelt zu werden, als dass beide Pivottabellen auch bei Aufruf des Befehls aus AW1 aktualisiert werden.
Nachdem ich den Bereich bei einer der beiden tabellen geändert hatte, funktionierte das dann auch nicht mehr, sondern nur die Schleife.
Danke für Deine Rückmeldung.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 7 von Tomschi vom 30.09.2021, 13:25 Options
Hallo Oliver!
Als Dank für Deine Unterstützung habe ich Deine Antwort 3 mit
"Diese Antwort hat das Problem gelöst"
bewertet.
Ciao
Tom
P.S:
Auch bei gleichem Datenbereich funktioniert Dein Vorschlag
aus Antwort 4 bei mir nicht.