Private Sub TextBox_Auftrag_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim loKlein As Long, loGroß As Long, i As Long
With Worksheets("Daten")
loKlein = WorksheetFunction.MinIfs(.Range("B:B"), .Range("A:A"), Me.TextBox_Auftrag)
loGroß = WorksheetFunction.MaxIfs(.Range("B:B"), .Range("A:A"), Me.TextBox_Auftrag)
End With
If loKlein > 0 Then
For i = loKlein To loGroß
Me.Controls("OptionButton" & CStr(i)).Enabled = False
Next i
End If
End Sub