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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen