Togglebuttons per makro löschen
27.06.2007 13:09:01
Fettertiger
ich habe ein für Euch hoffentlich kleines Problem.
Ich habe eine Tabelle die neben "buttons" auch togglebuttons enthält. Diese müssen per makro gelöscht werden.
Seltsamerweise ist es überhaupt kein Problem die Buttons zu löschen, an den Togglebuttons scheitere ich bisher aber kläglich.
Mein letzter Versuch basiert auf einem makro das ich hier im Online Archiv gefunden habe.
Sub remove_buttons()
Dim btn As Button
Dim btn2 As ToggleButton
Dim wbA As Workbook
Dim wsM As Worksheet
Set wbA = ThisWorkbook
Set wsM = wbA.ActiveSheet
For Each btn In wsM.Buttons
btn.Delete
Next btn
'bis hierher funzts
For Each btn2 In wsM.togglebuttons 'diese funktion gibt es nicht ich finde aber nichts _
geignetes
btn2.Delete
Next btn2
End Sub
Falls das mit dem "For Each" nicht funktioniert, auf dem blatt befinden sich die Togglebuttons1 - togglebutton21, es fehlt nur der Togglebutton10.
meine Versuche mittels:
ActiveSheet.Shapes("ToggleButton1").Select
Selection.Delete
funzen auch nicht, hier bekomme ich als Fehlermeldung:
Can't enter break mode at this time
Hat jemand ne Idde wie das möglichst einfach geht?
Danke und Gruss
Fettertiger