kann man folgenden Code vereinfachen
dieser Algorithmus geht bis zur Checkbox16
Private Sub CheckBox10_Click()
CheckBox9.Visible = False
If CheckBox10.Value = False And CheckBox11 = False And CheckBox12 = False And CheckBox13 = _
False And CheckBox14.Value = False And CheckBox15 = False And CheckBox16 = False Then CheckBox9.Visible = True
End Sub
Private Sub CheckBox11_Click()
CheckBox9.Visible = False
If CheckBox10.Value = False And CheckBox11 = False And CheckBox12 = False And CheckBox13 = _
False And CheckBox14.Value = False And CheckBox15 = False And CheckBox16 = False Then CheckBox9.Visible = True
End Sub
Es funktioniert zwar alles, sieht aber umständlich aus.Tschüß Steffen