Richtig einsteigen: Excel 2010 VBA-Programmierung

14.4 PivotTable löschen

Wenn Sie eine PivotTable löschen möchten, müssen Sie einerseits das Objekt PivotTable verwenden und andererseits die Eigenschaft TableRange2. Die Eigenschaft TableRange2 bewirkt, dass der gesamte PivotTable-Bericht einschließlich der Seitenfelder gelöscht wird. Es gibt auch noch die Eigenschaft TableRange1. Diese kann nur dann verwendet werden, wenn die PivotTable keine Seitenfelder enthält.

Zum Löschen verwenden Sie die Methode Delete:

Sub PivotTableLoeschen()
   With ActiveSheet
      If .PivotTables.Count > 0 Then
         .PivotTables(1).TableRange2.Delete
      End If
   End With
End Sub