Berechnetes Pivotfeld aus Tabelle löschen
Schritt-für-Schritt-Anleitung
Um ein berechnetes Feld in einer Pivot-Tabelle zu löschen, kannst du die folgenden Schritte befolgen. Diese Anleitung gilt für Excel 2007 und höher.
-
Öffne die Excel-Datei mit der Pivot-Tabelle.
-
Wechsel in den VBA-Editor (ALT + F11).
-
Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (deinWorkbookName)“ > Einfügen > Modul.
-
Gebe den folgenden VBA-Code ein:
Sub BerechnetesFeldLoeeschen()
Dim pvT As PivotTable
Set pvT = ActiveSheet.PivotTables(1) ' Ersetze die 1 mit der entsprechenden Nummer deiner Pivot-Tabelle
' Versuche das berechnete Feld zu löschen
On Error Resume Next ' Ignoriere Fehler, falls das Feld nicht existiert
pvT.CalculatedFields("DeinBerechnetesFeld").Delete
On Error GoTo 0 ' Fehlerüberprüfung wieder aktivieren
End Sub
-
Ersetze "DeinBerechnetesFeld" durch den Namen des berechneten Feldes, das du löschen möchtest.
-
Führe das Makro aus: Drücke F5 oder wähle „Ausführen“ im Menü.
Häufige Fehler und Lösungen
-
Fehler: "Der angegebene Name ist ungültig."
- Lösung: Überprüfe den Namen des berechneten Feldes. Stelle sicher, dass er genau übereinstimmt.
-
Fehler: "Das berechnete Feld kann nicht gelöscht werden."
- Lösung: Stelle sicher, dass das Feld nicht Teil einer Berechnung ist, die von anderen Feldern abhängt.
-
Das Datenfeld wird nicht gelöscht.
- Lösung: Es könnte an der Verwendung von
DataLabelRange.Delete liegen. Versuche stattdessen, das berechnete Feld direkt zu löschen, wie im obigen Makro gezeigt.
Alternative Methoden
-
Manuelles Löschen über das PivotTable-Feldlistenfenster:
- Klicke mit der rechten Maustaste auf das berechnete Feld in der PivotTable-Feldliste und wähle „Löschen“.
-
Die gesamte Pivot-Tabelle löschen:
- Wenn du die gesamte Pivot-Tabelle entfernen möchtest, klicke mit der rechten Maustaste auf die Pivot-Tabelle und wähle „PivotTable löschen“.
Praktische Beispiele
-
Beispiel für das Löschen eines berechneten Feldes:
Sub BeispielBerechnetesFeldLoeschen()
Dim pvT As PivotTable
Set pvT = ActiveSheet.PivotTables("PivotTable1")
pvT.CalculatedFields("Quote").Delete
End Sub
-
Nutzen von TableRange2 um die gesamte Pivot-Tabelle zu löschen:
Sub PivotTabelleLoeschen()
ActiveSheet.PivotTables("PivotTable1").TableRange2.Clear
End Sub
Tipps für Profis
- Backup erstellen: Vor dem Löschen von Pivot-Feldern oder Tabellen, erstelle immer ein Backup deiner Datei.
- Verwendung von
On Error Resume Next: Dies hilft, das Makro ohne Unterbrechungen weiterlaufen zu lassen, wenn ein bestimmtes Feld nicht existiert.
- Regelmäßiges Testen: Teste dein VBA-Skript in einer Testumgebung, bevor du es in produktiven Dateien anwendest.
FAQ: Häufige Fragen
1. Wie kann ich ein berechnetes Feld in Excel 2003 löschen?
Du kannst das gleiche VBA-Skript verwenden, jedoch kann die Syntax leicht variieren. Überprüfe die Excel-Version und passe den Code entsprechend an.
2. Was passiert, wenn ich ein berechnetes Feld lösche?
Wenn du ein berechnetes Feld löscht, werden alle Berechnungen, die auf diesem Feld basieren, ebenfalls entfernt. Stelle sicher, dass du die Auswirkungen verstehst, bevor du fortfährst.
3. Kann ich ein berechnetes Feld wiederherstellen, nachdem ich es gelöscht habe?
Einmal gelöscht, kann ein berechnetes Feld nicht wiederhergestellt werden, es sei denn, du hast eine Sicherungskopie der Datei oder du hast den Code, um das Feld erneut zu erstellen.