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
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins