Alle Diagramme löschen
17.04.2002 08:11:20
Michael
ich möchte alle Diagramme auf einem Blatt (Blattname: "Datenausgabe") löschen und habe dafür den folgenden Code vorgesehen:
Dim EingefuegtesDiagramm As ChartObject
For Each EingefuegtesDiagramm In ThisWorkbook.Worksheets("Datenausgabe").ChartObjects
EingefuegtesDiagramm.Delete
Next EingefuegtesDiagramm
Leider sind nach der Ausführung immer noch alle Diagramme da ... wo ist der Fehler?
Danke schön.
Gruß, Michael