kann mir jemand helfen?
In einer Userform sind zwei Optionsfelder.
Ist Optionsfeld 1 aktiv, so wird ein Textfeld eingeblendet, welches bei der Aktivierung von Optionsfeld 2 wieder ausgeblendet wird.
Ich hab nun das Problem, dass ich ein Optionsfeld immer doppelt anklicken muss, um es zu aktivieren. Beim ersten Klick wird es markiert, und erst beim zweite Klick wird die eigentliche Aktion ausgeführt.
Wie lässt sich das abstellen?
Folgender Code ist hinterlegt:
Private Sub CommandButton2_Click()
Set frm = UserForm1
Sheets("Rohstoffliste").Activate
Range("b65536").End(xlUp).Offset(1, 1).Select
With frm
ActiveCell.Offset(0, 1).Value = .TextBox12.Value
If UserForm1.OptionButton1.Value = True Then
ActiveCell.Offset(0, 0).FormulaR1C1 = "2"
ActiveCell.Offset(0, -1).FormulaR1C1 = "Stück"
ElseIf UserForm1.OptionButton2.Value = True Then
ActiveCell.Offset(0, 0).FormulaR1C1 = "1"
End If
Vielen Dank schon mal,
Gruß
J*