Excel-Objekte automatisch aus Arbeitsmappe entfernen

Wie Sie Ihre Tabellen bereinigen

Über die Zeichnen-Funktionen und andere Wege können Sie Formen und Objekte in Ihre Tabellen einfügen. Die folgende Abbildung zeigt, wie ein Blatt mit eingebundenen Objekten aussehen kann:

Wenn Sie alle Objekte aus einer Arbeitsmappe entfernen möchten, erledigen Sie das per Makro mit dem folgenden Programmcode:

Sub AlleObjekteLoeschen()
Dim Objekt As Shape
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
For Each Objekt In Blatt.Shapes
Objekt.Delete
Next Objekt, Blatt
End Sub

Das Makro durchläuft alle Tabellenblätter der aktiven Arbeitsmappe und entfernt die darin enthaltenen Objekte. Auch Diagrammobjekte werden gelöscht.

Denken Sie daran, vor der Ausführung des Makros eine Sicherheitskopie der Arbeitsmappe anzulegen, falls Sie die Arbeitsmappe in einer Fassung mit und ohne Objekte benötigen.