polaroid
Vice Admiral
- Registriert
- Nov. 2007
- Beiträge
- 6.785
Hallo zusammen!
Ich bin dabei mir eine UserForm zu basteln, in der es verschiedene Optionsfelder geben soll. Wie im Bild zu sehen, soll bei der Funktion entweder KB oder KBV anzuklicken sein, sowie bei der Anrede entweder Herr oder Frau. Wenn ich nun aber z.B. zuerst "KB" anklicke und anschließend "Herr", verschwindet die Anwahl vom "KB".
Ich muss die beiden Optionsfelder also in zwei Gruppen aufteilen, aber wie mache ich das?
So sieht mein Code bisher aus:
Ich bedanke mich herzlich für eure Hilfe!
Liebe Grüße, Christian
Ich bin dabei mir eine UserForm zu basteln, in der es verschiedene Optionsfelder geben soll. Wie im Bild zu sehen, soll bei der Funktion entweder KB oder KBV anzuklicken sein, sowie bei der Anrede entweder Herr oder Frau. Wenn ich nun aber z.B. zuerst "KB" anklicke und anschließend "Herr", verschwindet die Anwahl vom "KB".
Ich muss die beiden Optionsfelder also in zwei Gruppen aufteilen, aber wie mache ich das?
So sieht mein Code bisher aus:
Code:
Private Sub CommandButton2_Click()
Call Userform_Initialize
Set frm = UserForm1
Sheets("Erfassung").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .TextBox1.Value
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 2).Value = "KB"
'End If
'If .OptionButton2.Value = True Then
Else
ActiveCell.Offset(0, 2).Value = "KBV"
End If
If .OptionButton3.Value = True Then
ActiveCell.Offset(0, 3).Value = "Frau"
End If
If .OptionButton4.Value = True Then
ActiveCell.Offset(0, 3).Value = "Herr"
End If
ActiveCell.Offset(0, 4).Value = .TextBox2.Value & "@firma.de"
If .OptionButton5.Value = True Then
ActiveCell.Offset(0, 5).Value = "Frau"
Else
ActiveCell.Offset(0, 5).Value = "Herr"
End If
ActiveCell.Offset(0, 6).Value = .TextBox3.Value
ActiveCell.Offset(0, 7).Value = .TextBox4.Value & "@firma.de"
ActiveCell.Offset(0, 8).Value = .ComboBox1.Value
Ich bedanke mich herzlich für eure Hilfe!
Liebe Grüße, Christian