Hallo, VBAler,
seltsames Problem:
Ich will per Makro ein Diagramm bzw. alle Objekte aus einem Arbeitsblatt löschen, aber nur wenn welche vorhanden sind. Bisher hab ichs so realisiert:
For Each ws In ActiveWorkbook.Worksheets
If Not ws.Name = "aux" Then
ws.Range("a:z").ClearContents
ws.ChartObjects.Delete
ws.OLEObjects.Delete
End If
Next ws
unter Excel 2003 läufts problemlos, aber unter Excel 2007 erzeugt der Code einen Laufzeitfehler 1004 (Anwendungs- oder Objektbezogeren Fehler). Vermutlich, weil kein Objekt da ist.
Wie muss ich den Code ändern, damit VBA erkennt, ob ein Diagramm oder Objekt da ist? Bzw. eben nur dannlöschen, wenn ein Objekt gefunden wurde?
Vielen Dank im Voraus,
Heiko