Shapes Löschen
16.08.2004 20:52:02
Jost
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