Im unteren Code kann ich wenn "311" Checkboxen anwählen.
Funktioniert auch.
CheckBox3.Enabled = IIf(ComboBoxLinie.Value "311", 0, 1)
Nun möchte ich aber eine Erweiterung haben
CheckBox3.Enabled = IIf(ComboBoxLinie.Value "311","312","322", 0, 1)
Dies funktioniert leider nicht.
Könnte mir bitte jemand helfen?
' Wenn ungleich 311 dann Checkboxen kein Hacken
Private Sub CommandButton13_Click()
Select Case CommandButton13.Tag
Case Is = 0
CommandButton13.Tag = 1
Case Is = 1
CommandButton13.Tag = 0
End Select
CheckBox2.Value = CommandButton13.Tag
CheckBox4.Value = CommandButton13.Tag
CheckBox3.Enabled = IIf(ComboBoxLinie.Value "311", 0, 1)
CheckBox3.Value = IIf(CheckBox3.Enabled, CommandButton13.Tag, 0)
End Sub
Danke Heinz