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

Pivot-Tabelle ist eine sehr nützliche Funktion zum Anzeigen oder Berechnen von Daten in Excel, so dass wir normalerweise Pivot-Tabellen in ein Arbeitsblatt oder mehrere Arbeitsblätter einfügen können. Aber wissen Sie, wie man excel pivot tabelle löschen kann?

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

Löschen einer Pivot-Tabelle in einem Arbeitsblatt

 

Löschen aller Pivot-Tabellen in der gesamten Arbeitsmappe mit VBA

Empfohlene Produktivitätswerkzeuge für Excel/Office

 

Registerkarte Büro Bringen Sie die Bearbeitung von Tabs in Excel und andere Office-Software, genau wie Chrome, Firefox und Safari.30 Tage unbegrenzte kostenlose Testversion.

Kutools für Excel: 300 leistungsstarke Funktionen machen Excel sehr einfach und steigern die Produktivität sofort. 60 Tage unbegrenzte kostenlose Testversion.

Pfeil blau rechte Blase Löschen einer Pivot-Tabelle in einem Arbeitsblatt

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

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

doc-delete-pivot-table-1

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

doc-delete-pivot-table-2

Tipp: Wenn Sie Excel 2013 verwenden, wählen Sie bitte die gesamte Pivot-Tabelle aus, indem Sie auf Analyze > Select > Entire PivotTable klicken.

  1. Und drücken Sie die Delete-Taste auf der Tastatur, die Pivot-Tabelle wird entfernt.

Pfeilblaue rechte Blase Löschen aller Pivot-Tabellen in der gesamten Arbeitsmappe mit VBA

Wenn Sie mehrere Pivot-Tabellen in einer Arbeitsmappe haben, ist es zu zeitaufwendig, diese einzeln zu löschen. Jetzt können Sie einen VBA verwenden, um sie sofort 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 anzuzeigen, und kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA: Entfernen Sie alle Pivot-Tabellen in der gesamten Arbeitsmappe.

Sub DeleteAllPivotTablesInWorkbook()

  • Aktualisierung bis 20140618
  • Dim xWs als Arbeitsblatt
  • Dimmen xPT als PivotTable
  • Für jedes xWs in der Anwendung.ActiveWorkbook.Worksheets.
  • Für jedes xPT in xWs.PivotTables
  • xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
  • Weiter
  • Weiter
  • Ende Sub
  1. Klicken Sie auf die Schaltfläche Ausführen, dann werden alle Pivot-Tabellen in der gesamten Arbeitsmappe entfernt.