Mit folgendem Code (aufgezeichnet) lösche ich Shapes mit den Namen Ellipse 1 bis 8.
ActiveSheet.Shapes.Range(Array("Ellipse 1", "Ellipse 2", "Ellipse 3", _
"Ellipse 4", "Ellipse 5", "Ellipse 6", "Ellipse 7", "Ellipse 8")).Select
Selection.Delete
Vorab muss ich aber mit einer If-Funktion noch prüfen, ob diese Shapes tatsächlich vorhanden sind, ansonsten wird ein Fehler generiert. Die Shapes sind nicht immer auf dem Blatt, es sind zudem noch viele andere Shapes mit anderen Namen vorhanden, die nicht gelöscht werden dürfen. Es handelt sich um AutoShapeType = msoShapeOval.
Wie lautete der Code dierser If-Bedingung?
Danke und Gruss
Gregor