Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

shapes

shapes
03.11.2004 14:31:19
Hans
hi freaks,
ich glaube, ich bin doch zu blöd für vba. ich bekomme es einfach nicht gebacken in einer bestimmten markierung ( Range("A4:BA130") ) alle shapes zu löschen.
wer kann mir kurz helfen? *schnief*
grüße hans

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: shapes
K.Rola
Hallo,
nicht verzweifeln, das ist auch gar nicht so ganz einfach:

Sub Shapes_loeschen()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Intersect(Sh.TopLeftCell, [A4:BA130]) Is Nothing Then Sh.Delete
Next
End Sub

Gruß K.Rola
thanks
Hans
der hammer, danke
dafür hätte ich etwa 17 jahre plus - minus 2 jahre gebraucht.
hans
AW: thanks
K.Rola
Hallo,
hab ich exakt auch gebraucht!
Gruß K.Rola
AW: thanks
hans
das macht mir hoffnung
gruß hans
genial!!! o.T.
03.11.2004 16:43:52
Rolf
HG
Rolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige