Tutorials

Tutorial: Alle Pivot-Tabellen mit einem Klick aktualisieren (Excel VBA)

Melden

Hier ist ein schrittweises Tutorial, wie du in Excel eine Schaltfläche (Button) erstellst, die alle Pivot-Tabellen in deiner gesamten Arbeitsmappe automatisch aktualisiert.

Wenn du mit vielen Pivot-Tabellen arbeitest, ist es mühsam, jede einzeln per Rechtsklick zu aktualisieren. Mit einem kleinen VBA-Makro und einem Button kannst du diesen Vorgang automatisieren.

Schritt 1: Die Registerkarte „Entwicklertools“ aktivieren

Bevor du VBA nutzen kannst, muss die Registerkarte Entwicklertools im Menüband sichtbar sein.

  1. Klicke mit der rechten Maustaste auf eine beliebige Stelle im Menüband (Ribbon).
  2. Wähle Menüband anpassen....
  3. Setze in der rechten Liste ein Häkchen bei Entwicklertools.
  4. Klicke auf OK.

Schritt 2: Den VBA-Code erstellen

Nun schreiben wir das Makro, das den Befehl zur Aktualisierung gibt.

  1. Klicke auf die Registerkarte Entwicklertools und dann ganz links auf Visual Basic (oder drücke Alt + F11).
  2. Gehe im Menü auf Einfügen -> Modul.
  3. Kopiere den folgenden Code und füge ihn in das leere Fenster ein:
Sub AllePivotTabellenAktualisieren()
    ' Aktualisiert alle Datenverbindungen und Pivot-Tabellen in der Arbeitsmappe
    ActiveWorkbook.RefreshAll

    ' Optional: Eine kleine Bestätigungsmeldung anzeigen
    MsgBox "Alle Pivot-Tabellen wurden erfolgreich aktualisiert!", vbInformation, "Update abgeschlossen"
End Sub
  1. Schließe das VBA-Fenster (einfach oben auf das X klicken), du musst nicht extra speichern.

Schritt 3: Den Button erstellen

Jetzt platzieren wir eine Schaltfläche in deinem Excel-Sheet, um das Makro zu starten.

  1. Gehe zur Registerkarte Einfügen.
  2. Klicke auf Illustrationen -> Formen und wähle ein Rechteck (oder eine Form deiner Wahl).
  3. Zeichne die Form auf dein Tabellenblatt.
  4. Klicke mit der rechten Maustaste auf die Form und wähle Text bearbeiten. Schreibe z. B. „Daten aktualisieren“ hinein.
  5. Klicke erneut mit der rechten Maustaste auf den Rand der Form und wähle Makro zuweisen....
  6. Wähle aus der Liste das Makro AllePivotTabellenAktualisieren aus und bestätige mit OK.

Schritt 4: Die Datei richtig speichern

Da die Datei nun ein Makro enthält, musst du das Dateiformat ändern.

  1. Gehe auf Datei -> Speichern unter.
  2. Wähle als Dateityp unbedingt Excel-Arbeitsmappe mit Makros (.xlsm). (In einer normalen .xlsx-Datei werden Makros gelöscht!)

Profi-Tipp: Nur Pivot-Tabellen aktualisieren

Der Befehl ActiveWorkbook.RefreshAll aktualisiert alles (auch Power Query-Verbindungen). Wenn du wirklich nur die Pivot-Tabellen durchlaufen möchtest, kannst du diesen Code nutzen:

Sub NurPivotsAktualisieren()
    Dim ws As Worksheet
    Dim pt As PivotTable

    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next pt
    Next ws

    MsgBox "Nur Pivot-Tabellen wurden aktualisiert.", vbInformation
End Sub

Zusammenfassung

Jetzt musst du nur noch auf deinen Button klicken, und Excel erledigt die Arbeit für dich. Das spart Zeit und stellt sicher, dass du keine Tabelle beim Aktualisieren vergisst!

0