wie kann ich alle Schaltflächen von 110 bis 150 löschen ?
Und / Oder Schaltflächen von 110 bis 140 löschen.
Public Sub Schaltflächen_löschen()
ActiveSheet.Shapes("Schaltfläche 110").Delete
End Sub
gruß kurt
Public Sub Schaltflächen_löschen()
ActiveSheet.Shapes("Schaltfläche 110").Delete
End Sub
gruß kurt
Public Sub Schaltflächen_löschen()
Dim sfZ&
On Error Resume Next
For sfZ = 110 To 150
ActiveSheet.Shapes("Schaltfläche " & sfZ).Delete
Next
End Sub
Die Schaltflächen müssen natürlich auch so heißen.