Formel
30.06.2014 08:50:25
Stef26
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