Thema Datum  Von Nutzer Rating
Antwort
Rot Checkboxen Triplestate Abhängikeiten
 02.12.2016 16:36:31 Christian Meyer
NotSolved
02.12.2016 19:04:51 Mackie
NotSolved
06.12.2016 11:59:02 Christian Meyer
NotSolved

Ansicht des Beitrags:
Von:
Christian Meyer		 Datum:
02.12.2016 16:36:31		 Views:
1655		 Rating:
     
Antwort:
  Ja
Thema:
Checkboxen Triplestate Abhängikeiten

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Checkboxen Triplestate Abhängikeiten
 02.12.2016 16:36:31 Christian Meyer
NotSolved
02.12.2016 19:04:51 Mackie
NotSolved
06.12.2016 11:59:02 Christian Meyer
NotSolved