VBA - Pivottabelle aktualisieren (allg. Frage)

Question

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

Answer 1

Hallo Tom,

das müsste

Sheets("Dein Blattname").PivotTables("Name der Pivot Tabelle").RefreshTablesein.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

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

Answer 3

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
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

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
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 5

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

Answer 6

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
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 7

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.