Müssen Sie alle Pivot-Tabellen aus einem Tabellenblatt entfernen, dann kann dies je nach Anzahl und Umfang in dem Tabellenblatt sehr zeitaufwändig sein. Mit dem folgenden Makro erledigen Sie diese Aufgabenstellung vollständig innerhalb von Sekundenbruchteilen, ohne dass Sie eine Pivot-Tabelle übersehen oder vergessen.
Makro: Alle Pivot-Tabellen in einem bestimmten Tabellenblatt löschen
Aktivieren Sie das entsprechende Tabellenblatt und starten Sie dann einfach das folgende Makro:
Sub Pivot_loeschen_Blatt()
Application.ScreenUpdating = False
Dim Pivot_Tabelle As PivotTable
Dim Anzahl As Integer
For Anzahl = ActiveSheet.PivotTables.Count To 1 Step -1
Set Pivot_Tabelle = ActiveSheet.PivotTables(Anzahl)
Pivot_Tabelle.PivotSelect ""
Selection.Clear
Next Anzahl
Application.ScreenUpdating = True
End Sub