mehrere OptionsButton aktivieren VBA

[michel34497]

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?

[AlterDresdner]

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.

[michel34497]

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!

[schauan]

Hallöchen,

im Prinzip so:
For i = 2 To 8
Me.Controls("CheckBox" & i)= False
Next

[mumpel]

Hallo!

(...) 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é

[schauan]

Hallo René,

dann müsste man für eine Mehrfachauswahl aber jeden Optionbutton in einen eigenen Frame packen

[Kuwer]

Sehr

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

[Kuwer]

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

[Gast 123]

Hallo Uwe

nur aus technischem Interesse.  Wie stellt man eine ListBox optisch auf Haeckchen ein??  Das ist mir bisher nicht bekannt.

mfg  Gast 123

[Basisa]

Eigenschaft muss diese dann sein:

ListStyle : 1 - fmListStyleOption

EDIT: und wegen Mehrfachauswahl diese noch

MultiSelect: 1 - fmMultiSelectMulti