Der Makro Recorder liefert mir für eine OptionBox das hier:
Aber wie mache ich daraus select all?
Sub aaa()
' aaa Macro
ActiveSheet.Shapes.Range(Array("Option Button 269")).Select
With Selection
.Locked = False
.LockedText = False
End With
End Sub
Sub aaa()
' aaa Macro
ActiveSheet.Shapes.Range(Array("Option Button 269")).Select
With Selection
.Locked = False
.LockedText = False
End With
End Sub
Dim Ctl as Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.OptionButton Then
next ctl
Im Arbeitsblatt kann man durch alle Shapes iterieren und auf den Namen prüfen.