Excel Tipps und Tricks – Mit diesem Makro können Sie alle Pivot-Tabellen in einem Tabellenblatt löschen

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:

 

MerkenMerken

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

Nützliche Links im Internet zu dieser Funktion/Thema

search previous next tag category expand menu location phone mail time cart zoom edit close