ich habe mittels Symbolleiste "Formular" Schaltflächen in einer Tabelle hinterlegt (genau 2 Stück). Anschliessend habe ich diese Tabelle viele Mal kopiert
und nun muss ich alle Schaltflächen löschen. Hat jemand Rat?
Danke
Gruß
Franz
ActiveSheet.Shapes.SelectAll
Selection.Delete
Private Sub Single_Del_All()
Dim Shp As Shape, Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
For Each Shp In Ws.Shapes
Shp.Delete
Next
Next
End Sub
Gruß GerdSub SchalterLoeschen()
Dim cmbSchalter As Button
Dim wsTabelle As Worksheet
For Each wsTabelle In Worksheets
For Each cmbSchalter In wsTabelle.Buttons
cmbSchalter.Delete
Next cmbSchalter
Next wsTabelle
End Sub