Guten Abend zusammen!
Ich hätte noch eine Interessante Aufgabe für die Experten unter uns ;)
Ich habe ein Interface voller Checkboxen! Diese besitzen alle einen Triplestate.
Zudem habe ich eine hauptCheckBox.
Nun habe ich drei Bedingungen:
Wenn nur eine Checkbox false ist, ist die HauptCheckBox immer false.
Wenn nur eine oder auch mehrere Checkbox/en true ist UND alle anderen Null(Triplestate) dann ist die hauptcheckbox = True
Wenn alle Checkboxen Grün sind, dann soll die Hauptcheckbox auch grün sein
Ich habe diesen Code schon richtig geschrieben,allerdings ist dieser zu lang und kompliziert für mein Vorgesetzten...
Kann mir jemand helfen? Ein Ansatz vom Chef war, dass ich es mathematisch lösen kann... ungern in einer Schleife..
Mein Code:
Sub CheckBoxPrüfenUntermenü2()
If _
ActiveSheet.CheckBox24.Value = False Or ActiveSheet.CheckBox25.Value = False Or _
ActiveSheet.CheckBox26.Value = False Or ActiveSheet.CheckBox27.Value = False Or _
ActiveSheet.CheckBox28.Value = False Or ActiveSheet.CheckBox29.Value = False Or _
ActiveSheet.CheckBox30.Value = False Or ActiveSheet.CheckBox31.Value = False Or _
ActiveSheet.CheckBox32.Value = False Or ActiveSheet.CheckBox33.Value = False Or _
ActiveSheet.CheckBox34.Value = False Or ActiveSheet.CheckBox35.Value = False Or _
ActiveSheet.CheckBox36.Value = False Or ActiveSheet.CheckBox37.Value = False Or _
ActiveSheet.CheckBox38.Value = False Or ActiveSheet.CheckBox39.Value = False Or _
ActiveSheet.CheckBox40.Value = False Or ActiveSheet.CheckBox41.Value = False Or _
ActiveSheet.CheckBox42.Value = False Or ActiveSheet.CheckBox43.Value = False Or _
ActiveSheet.CheckBox44.Value = False Or ActiveSheet.CheckBox45.Value = False Or _
ActiveSheet.CheckBox46.Value = False Then _
ActiveSheet.HauptCheckBoxU2.Value = False
ActiveSheet.OLEObjects("HauptCheckBoxU2").object.BackColor = RGB(0, 0, 255)
ElseIf _
ActiveSheet.CheckBox24.Value = True Or ActiveSheet.CheckBox25.Value = True Or _
ActiveSheet.CheckBox26.Value = True Or ActiveSheet.CheckBox27.Value = True Or _
ActiveSheet.CheckBox28.Value = True Or ActiveSheet.CheckBox29.Value = True Or _
ActiveSheet.CheckBox30.Value = True Or ActiveSheet.CheckBox31.Value = True Or _
ActiveSheet.CheckBox32.Value = True Or ActiveSheet.CheckBox33.Value = True Or _
ActiveSheet.CheckBox34.Value = True Or ActiveSheet.CheckBox35.Value = True Or _
ActiveSheet.CheckBox36.Value = True Or ActiveSheet.CheckBox37.Value = True Or _
ActiveSheet.CheckBox38.Value = True Or ActiveSheet.CheckBox39.Value = True Or _
ActiveSheet.CheckBox40.Value = True Or ActiveSheet.CheckBox41.Value = True Or _
ActiveSheet.CheckBox42.Value = True Or ActiveSheet.CheckBox43.Value = True Or _
ActiveSheet.CheckBox44.Value = True Or ActiveSheet.CheckBox45.Value = True Or _
ActiveSheet.CheckBox46.Value = True Then _
ActiveSheet.HauptCheckBoxU2.Value = True
ActiveSheet.OLEObjects("HauptCheckBoxU2").object.BackColor = RGB(255, 0, 0)
Else
ActiveSheet.OLEObjects("HauptCheckBoxU2").object.BackColor = RGB(0, 255, 0)
ActiveSheet.HauptCheckBoxU2.Value = Null
End If
End Sub
|