Wie löscht man eine oder alle Pivot-Tabellen in Excel?

Die Pivot-Tabelle ist eine sehr nützliche Funktion zum Anzeigen oder Berechnen von Daten in Excel, daher fügen wir möglicherweise häufig Pivot-Tabellen in ein Arbeitsblatt oder mehrere Arbeitsblätter ein. Aber wissen Sie, wie Sie eine oder alle Pivot-Tabellen in einem Arbeitsblatt oder der gesamten Arbeitsmappe löschen können?

Eine Pivot-Tabelle in einem Arbeitsblatt löschen

Alle Pivot-Tabellen in der gesamten Arbeitsmappe mit VBA löschen

---

Eine Pivot-Tabelle in einem Arbeitsblatt löschen

In Excel können Sie eine Pivot-Tabelle wie folgt löschen:

1. Klicken Sie auf den Pivot-Tabellen-Bericht. Siehe Screenshot:

2. Klicken Sie dann auf Option > Auswählen > Gesamte Pivot-Tabelle, um die Pivot-Tabelle auszuwählen. Siehe Screenshot:

Tipp: Wenn Sie Excel 2013 verwenden, wählen Sie die gesamte Pivot-Tabelle durch Klicken auf Analyse > Auswählen > Gesamte Pivot-Tabelle aus.

3. Drücken Sie die Entfernen-Taste auf der Tastatur, und die Pivot-Tabelle wird entfernt.

---

Alle Pivot-Tabellen in der gesamten Arbeitsmappe mit VBA löschen

Wenn Sie mehrere Pivot-Tabellen in einer Arbeitsmappe haben, ist das Löschen dieser Tabellen einzeln zu zeitaufwendig. Nun können Sie ein VBA verwenden, um sie auf einmal zu entfernen.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie im Fenster auf Einfügen > Modul, um ein neues Modulfenster zu öffnen, und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA: Alle Pivot-Tabellen in der gesamten Arbeitsmappe entfernen.

Sub DeleteAllPivotTablesInWorkbook()
'Updateby20140618
Dim xWs As Worksheet
Dim xPT As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xPT In xWs.PivotTables
        xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
    Next
Next
End Sub

3. Klicken Sie auf Ausführen , dann werden alle Pivot-Tabellen in der gesamten Arbeitsmappe entfernt.

---

Verwandte Artikel:

• Alle Kommentare in Excel entfernen