Für bestimmte Arten der Datenanalyse können PivotTables sehr praktisch sein. Wenn Sie eine Arbeitsmappe haben, die mehrere PivotTables enthält, die alle auf denselben Daten basieren, fragen Sie sich möglicherweise, ob es eine Möglichkeit gibt, alle auf einmal zu aktualisieren, anstatt sie einzeln durchzugehen und zu aktualisieren.

Es gibt keinen Excel-Befehl, mit dem Sie alle PivotTables aktualisieren können, aber Sie können ein kurzes Makro erstellen, das die Aufgabe für Sie erledigt. Das folgende Makro, RefreshAllPivots, durchläuft jedes Arbeitsblatt in einer Arbeitsmappe, prüft, ob PivotTables vorhanden sind, und aktualisiert sie gegebenenfalls.

Sub RefreshAllPivots()

Dim wks As Worksheet     Dim pt As PivotTable

For Each wks In Worksheets         For Each pt In wks.PivotTables             pt.RefreshTable         Next pt     Next wks End Sub

Wenn Sie viel mit mehreren PivotTables arbeiten, möchten Sie das Makro möglicherweise einer Tastenkombination, einer Symbolleistenschaltfläche oder einer Menüoption zuweisen, damit Sie es einfacher ausführen können. (Informationen zum Zuweisen von Makros zu Symbolleisten, Tastenkombinationen und Menüs finden Sie in anderen Ausgaben von ExcelTips.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2287) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: