Hallo Leute!
Wie kann man mehrere OptionsButtonen (ca. 5 stück) mit einer CheckBox auswählen?
In meiner Uf habe ich mehrere OptionsButton für eine Auswahl und eine CheckBox für Mehrfach Auswahl.
Wenn nun die CheckBox True (Mehrfach Auswahl) ist möchte ich mehrere OptionsButton auswählen können.
Wie muss der Code dann sein?
Kann mir da einer weiter Helfen ohne das ein Beispiel hochgeladen wird?
Hallo Michael,
OptionButtons sind nun mal für Alternativauswahl gedacht, das wird auch über Umwege (Frames, Gruppieren) nicht gehen.
Ersetze sie durch Checkboxen und tausche die Mehrfachauswahl gegen Einfachauswahl, das kann man dann codeseitig regeln.
Hallo!
Danke für deine antwort, habe das auch gemacht. Funktioniert auch!
Code:
Private Sub CheckBox2_Click()
If CheckBox9 = False Then
If CheckBox2 = True Then
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
End If
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox9 = False Then
If CheckBox3 = True Then
CheckBox2 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
End If
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox9 = False Then
If CheckBox4 = True Then
CheckBox2 = False
CheckBox3 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
End If
End If
End Sub
Private Sub CheckBox5_Click()
If CheckBox9 = False Then
If CheckBox5 = True Then
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
End If
End If
End Sub
Private Sub CheckBox6_Click()
If CheckBox9 = False Then
If CheckBox6 = True Then
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox7 = False
CheckBox8 = False
End If
End If
End Sub
Private Sub CheckBox7_Click()
If CheckBox9 = False Then
If CheckBox7 = True Then
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox8 = False
End If
End If
End Sub
Private Sub CheckBox8_Click()
If CheckBox9 = False Then
If CheckBox8 = True Then
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
End If
End If
End Sub
Private Sub CheckBox9_Click()
If CheckBox9 = False Then
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
End If
End Sub
Vieleicht kann man den Code auch einfacher gestalten oder zusammen schrumpfen!
Hallöchen,
im Prinzip so:
For i = 2 To 8
Me.Controls("CheckBox" & i)= False
Next
Hallo!
(14.02.2017, 18:15)AlterDresdner schrieb: [ -> ](...) das wird auch über Umwege (Frames, Gruppieren) nicht gehen (...)
Doch, das funktioniert mit Frames. Dafür sind Frames ja da. Aber nur in einer Userform, nicht in einem Tabellenblatt.
Gruß, René
Hallo René,
dann müsste man für eine Mehrfachauswahl aber jeden Optionbutton in einen eigenen Frame packen
Sehr
(18.02.2017, 11:22)schauan schrieb: [ -> ]Hallo René,
dann müsste man für eine Mehrfachauswahl aber jeden Optionbutton in einen eigenen Frame packen
.... oder jedem OB einen eigenen Groupname zuweisen.
Gruß Uwe
Hallo Michael,
Nimm doch einfach eine ListBox. Die lässt sich optisch auch so einstellen, dass Häkchen angezeigt werden.
Mit der CheckBox stellst Du dann einfach die Multiselect-Eigenschaft ein.
Gruß Uwe
Hallo Uwe
nur aus technischem Interesse. Wie stellt man eine ListBox optisch auf Haeckchen ein?? Das ist mir bisher nicht bekannt.
mfg Gast 123
Eigenschaft muss diese dann sein:
ListStyle : 1 - fmListStyleOption
EDIT: und wegen Mehrfachauswahl diese noch
MultiSelect: 1 - fmMultiSelectMulti