CheckBox Problem
20.03.2021 21:27:15
Christoph
ich wurde gerne folgendes mit CheckBoxen realisieren, weil ich die optisch als schönste Lösung finde.
Ich habe 5 CheckBoxen, wovon 1,2 und 3 in allen Möglichkeiten ausgewählt werden können. Wenn 1,2 und 3 ausgewählt werden, soll automatisch CheckBox4 = true werden und 1,2 und 3 = false.
Wenn ich CheckBox 4 auswähle, dann ist der Rest false und wenn ich CheckBox 5 auswähle, dann ist auch der Rest false.
CheckBox1 = 1.
CheckBox2 = 2.
CheckBox3 = 3
CheckBox4 = alle
CheckBox5 = keine
Ich habe das ganze versucht wie folgt zu lösten, was aber durch den gegenseitigen Aufruf untereinander nicht funktioniert. Ich weiß, nicht gerade elegant, aber ich würde es gerne mit den CheckBoxen hinbekommen.
Private Sub CheckBox1_Click()
If CheckBox1 = True and CheckBox2 = True and CheckBox3 = True Then
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = True
else
CheckBox1 = True
CheckBox4 = False
CheckBox5 = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox1 = True and CheckBox2 = True and CheckBox3 = True Then
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = True
else
CheckBox2 = True
CheckBox4 = False
CheckBox5 = False
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox1 = True and CheckBox2 = True and CheckBox3 = True Then
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = True
else
CheckBox3 = True
CheckBox4 = False
CheckBox5 = False
End If
End Sub
Private Sub CheckBox4_Click()
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = True
CheckBox5 = False
End Sub
Private Sub CheckBox5_Click()
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = True
End Sub
Christoph