Microsoft Excel

Herbers Excel/VBA-Archiv

Shapes Löschen

Betrifft: Shapes Löschen von: Jost Bernhard
Geschrieben am: 16.08.2004 20:52:02

Hallo,
ich bin am verzweifeln wer kann mir Helfen ?
Problem:
auf einem Tabellenblatt (Etiketten) sind mehere Grafiken 0-80 Stück
alle Typ 6 (Group) und Namen Form1 - Form80 angeordnet.
Beim Löschen trit immer wieder ein Programmabsturz auf

(Schwerwiegender Excel-Fehler) und Excel muß zusätzlich noch im Task_Maneger gelöscht werden) anbei mein Makro zum Löschen

Manchmal gehts bis 30 Grafiken manchmal nur bis 5
es ist kein System erkennbar bei diesem Fehler ?


' löscht alle Shapes auf dem aktuellen Blatt,
' wenn deren erste drei Buchstaben im Namen "For" sind
Sheets("Etiketten").Activate
For i = ActiveSheet.Shapes.Count To 1 Step -1
If Left(ActiveSheet.Shapes(i).Name, 3) = "For" Then
ActiveSheet.Shapes(i).Delete
End If
Next

Ps habe auch anderen Code von Herberts CD probiert immer das gleiche
Im voraus Dank

Jost Bernhard
bjost@htw-saarland.de

  


Betrifft: AW: Shapes Löschen von: Ulf
Geschrieben am: 16.08.2004 21:13:29

Sheets("Etiketten").DrawingObjects.delete

Ulf


 

Beiträge aus den Excel-Beispielen zum Thema "Shapes Löschen"