Danke für die Hilfe
Private Sub CommandButton1_Click()
Dim cnt As Control
For Each cnt In Me.Controls
If TypeName(cnt) = "OptionButton" And cnt.Value = True Then
MsgBox "Name : " & cnt.Name & vbLf & "Beschriftung : " & cnt.Caption, _
vbOKOnly, "OptionButton ausgewählt :"
End If
Next
End Sub
Gruß, NoNet