Frage zu CheckBoxen in UserForm?
11.04.2005 13:08:59
Oliver S.
ich hätte da mal eine Frage zu den Checkboxen. Ich habe mehrere Checkboxen in einer UserForm. Nun möchte ich erreichen, dass man immer nur eines auswählen kann. Ist bereits eine CheckBox ausgewählt und es wird eine weitere CheckBox ausgewählt soll eine Meldung erscheinen und die Auswahl soll wieder aufgehoben werden. Dazu habe ich nachfolgenden Code hinter die Checkboxen hinterlegt, das das schon macht.
Private Sub CheckBox1_Click()
If CheckBox2 = True Or CheckBox3 = True Then
CheckBox1 = False
MsgBox "Es wurde bereits eine andere Auswahl getroffen." & Chr(13) _
& "Zum Wählen dieser Variante muss die andere Auswahl gelöscht werden"
End If
End Sub
Allerdings hat die ganze Sache einen kleinen Schönheitsfehler. Da durch den Befehl CheckBox1 = False die Checkbox ja erneut angesprochen wird, erscheint bei Klick auf den OK Button in der MsgBox die MsgBox noch einmal. Wie bekommt man da anders hin, so dass die Auswahl aufgehoben wird, aber die MsgBox nur einmal erscheint?
Danke Euch schon mal Vorab für Eure Tip's.
Gruß,
Oliver