Excel Tipps und Tricks - Mit diesem Makro können Sie alle Pivot-Tabellen in einer Arbeitsmappe löschen

Müssen Sie alle Pivot-Tabellen in einer Arbeitsmappe entfernen, dann kann dies je nach Anzahl und Umfang in der Arbeitsmappe 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 einer Arbeitsmappe löschen

Aktivieren Sie die entsprechende Arbeitsmappe und starten Sie dann einfach das folgende Makro:

MerkenMerken

Sub Pivot_loeschen_Datei()
Application.ScreenUpdating = False
Dim Pivot_Tabelle As PivotTable
Dim Anzahl As Integer
Dim Tabellenblatt As Integer
For Tabellenblatt = 1 To Worksheets.Count
Worksheets(Tabellenblatt).Activate
For Anzahl = ActiveSheet.PivotTables.Count To 1 Step -1
Set Pivot_Tabelle = ActiveSheet.PivotTables(Anzahl)
Pivot_Tabelle.PivotSelect ""
Selection.Clear
Next Anzahl
Next Tabellenblatt
Application.ScreenUpdating = True
End Sub

Hier können Sie die Beispieldatei herunterladen Herunterladen