Thema: Auswahl ermitteln

• Variablendeklaration
• Eine Schleife über alle Steuerelemente der UserForm bilden
• Wenn es sich um einen OptionButton handelt...
• Zähler um eins hochzählen
• Wenn der OptionButton aktiviert ist, Schleife verlassen
• Aktivierten OptionButton melden

Private Sub cmdAuslesen_Click()
   Dim cnt As Control
   Dim iCounter As Integer
   For Each cnt In Controls
      If TypeName(cnt) = "OptionButton" Then
         iCounter = iCounter + 1
         If cnt.Value = True Then Exit For
      End If
   Next cnt
   MsgBox "Optionsfeld Nr. " & iCounter & _
      " wurde ausgewählt!"
End Sub