shapes("Button") löschen
31.07.2002 18:34:27
urs
Der untenstehende Sub funktioniert soweit, aber...
Ich möchte dass nur die Shapes ("Button('irgendeine Zahl')")gelöscht werden auf dem Tabellenblatt. Alle anderen Shapes sollen erhalten bleiben.
Nach wie vor...Super Forum
und
sonnige Grüsse aus der Schweiz!
Sub KillShapes()
Dim shp As Shape
For Each shp In Sheets("Tabelle2").Shapes
shp.Delete
Next shp
End Sub
Anzeige