Textbox
26.09.2016 16:17:58
Rolf
was muss ich ergänzen oder ändern, damit nur die Textboxen gelöscht werden.
Die Textboxen haben verschiedene Namen, sind also nicht durchnummeriert.
Sub Löschen()
Dim shShape As Shape
For Each shShape In ActiveSheet.Shapes
if ......?
shShape.Delete
endif
Next
End Sub
Rolf
Anzeige