Wie aktualisiert man eine PivotTable, wenn sich Daten in Excel ändern?

Wie Sie wissen, wird die zugehörige PivotTable nicht automatisch aktualisiert, wenn Sie Daten in der Originaltabelle ändern. Wenn Sie die PivotTable aktualisieren möchten, sobald sich Daten in der Tabelle in Excel ändern, kann ich Ihnen einige schnelle Methoden zeigen.

PivotTable in einem Arbeitsblatt durch Drücken von Aktualisieren aktualisieren

PivotTable in einem Arbeitsblatt oder einer Arbeitsmappe mit VBA aktualisieren

PivotTable in einem Arbeitsblatt durch Drücken von Aktualisieren aktualisieren

In Excel gibt es eine Funktion „Aktualisieren“ und „Alle aktualisieren“, um PivotTables in einem einzelnen Arbeitsblatt zu aktualisieren.

Klicken Sie auf die PivotTable, die Sie aktualisieren möchten, und klicken Sie dann auf Konvertieren (in Excel 2013, klicken Sie auf ANALYZE) > Aktualisieren > Aktualisieren. Siehe Screenshot:

Wenn Sie alle PivotTables in einem einzelnen Arbeitsblatt aktualisieren möchten, können Sie „Alle aktualisieren“ auswählen.

PivotTable in einem Arbeitsblatt oder einer Arbeitsmappe mit VBA aktualisieren

Mit VBA können Sie nicht nur alle PivotTables in einem einzelnen Arbeitsblatt, sondern auch alle PivotTables in der gesamten Arbeitsmappe aktualisieren.

1. Drücken Sie gleichzeitig die Tasten F11 + Alt auf der Tastatur, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie dann auf Einfügen > Modul, um ein neues Modulfenster einzufügen. Kopieren Sie dann den folgenden VBA-Code in das Fenster.

VBA: PivotTables in einem Arbeitsblatt aktualisieren.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. Klicken Sie in dem Fenster auf die Schaltfläche Ausführen oder drücken Sie die Taste F5, um das VBA auszuführen, dann werden die PivotTables im Arbeitsblatt aktualisiert.

Tipp: Um alle PivotTables in einer gesamten Arbeitsmappe zu aktualisieren, können Sie das folgende VBA verwenden.

VBA: Alle PivotTables in einer Arbeitsmappe aktualisieren.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

Verwandte Artikel:

• PivotTable beim Öffnen der Datei in Excel aktualisieren
• Datenbereich der PivotTable in Excel aktualisieren