Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel

Forumthread: Formel

Formel
30.06.2014 08:50:25
Stef26
Guten Morgen,
wer könnte mir bei folgender Formel mal behilflich sein ?
Sub loeschen()
Dim objShp As Shape
Dim rng As Range
On Error GoTo Infotext
Set rng = Selection
For Each objShp In ActiveSheet.Shapes
If Shapes.Visible = False Then GoTo überspr
If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then objShp.Delete
überspr:
Next
Set rng = Nothing
GoTo Ende
Infotext:
MsgBox ("Es wurde kein Bereich selektiert!")
Ende:
End Sub

Würde gerne mit dem Code alle sichtbaren shapes löschen.
Irgendwo hab ich allerdings einen Fehler, den ich nicht finde
:-)
Liebe Grüsse
Stefan

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel
30.06.2014 09:05:11
MCO
Moin!
For Each objShp In ActiveSheet.Shapes
If Shapes.Visible
muß heißen
For Each objShp In ActiveSheet.Shapes
If objShp.Visible
Gruß, MCO

AW: Formel
30.06.2014 09:09:52
Stef26
Super, jetzt funktionierts auch.
Danke MCO
:-)
Stefan
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige