Hi Praktlc

Sub GrafikenLöschen()
    For Each WsTabelle In Sheets
    WsTabelle.DrawingObjects.Delete
    Next WsTabelle
End Sub

Gruss Werner

Hallo,

das Makro funktioniert, aber jetzt löscht es mir alle Grafiken in der gesamten Arbeitsmappe.
Nochmalige genauere Erklärung:
In meiner Arbeitsmappe befinden sich Einzelberichte, die monatl. ausgetauscht werden sollen um daraus einen Gesamtbericht zu erstellen.
Durch einfügen der Einzelberichte soll sich der Gesamtbericht automatisch generieren.
Da ich zuerst alle Inhalte der Sheets mit den Einzelberichten löschen muss, mir aber dann noch die Grafiken vor dem einfügen des neuen Berichts stehen bleiben würden, muss ich die Möglichkeit haben die Grafiken der Einzelberichte auf den EINZELNEN Excel-Sheets zu löschen.

Vielen Dank für die Hilfe.

Hallo praktlc,
mit folgendem Code werden alle Grafiken auf dem Aktuellen Blatt entfernt.

Sub GrafikenLöschen()
ActiveSheet.DrawingObjects.Delete
End Sub

Gruß Niels