Dim objT As Control
Dim n As Byte
Dim sAuswahl As String
 
For Each objT In UserForm1.Frame1.Controls
   n = n + 1
   If objT.Value Then Exit For
Next
 
Select Case n
   Case 1
      sAuswahl = "unter 0,5"
   Case 2
      sAuswahl = "0,5 - 2"
   Case 3
      sAuswahl = "2 - 5"
   Case 4
      sAuswahl = "über 5"
   Case Else
      MsgBox "Sie müssen Ihre Betriebszugehörigkeit angeben.", _
              vbExclamation, "Fehler:"
      Exit Sub
End Select
 
With Application
   .ActiveWorkbook.Sheets("Allg_Untern").Select
   .ActiveSheet.Cells(2,1).Value = sAuswahl
   .ActiveWorkbook.Save
End With