Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shapes Löschen

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes Löschen
Ulf
Sheets("Etiketten").DrawingObjects.delete
Ulf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige