Excel '97: Optionsfelder in verschiedene Gruppen aufteilen

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:

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
 

Anhänge

  • UserForm.JPG
    UserForm.JPG
    33 KB · Aufrufe: 206
Also in Excel 2010 kannst du im Eigenschaftsfenster des Optionsbuttons einen Gruppennamen vergeben.
Also einfach für KB und KBV den selben Gruppennamen und für Herr und Frau den selben Gruppennamen.
Das müsste schon reichen.

MfG Matze
 
Mindestens in Office 2000 geht dasselbe auch schon, und ich lüge wenn ich sage dito unter O97, weil ich meine dies da eingesetzt zu haben.
CN8
 
Zurück
Oben