|
Hallo!
Ich bin absoluter VBA Neuling und möchte mir gerne ein Programm zimmern.
Ich möchte Checkboxen mit verschiedenen Reparaturarten in meinem Programm haben.
- Reparatur A (Gibt wenn es angehakt ist auf die Zelle "E3" einen 1er)
- Reparatur B (Gibt wenn es angehakt ist auf die Zelle "E8" einen 1er)
- Reparatur F (Gibt wenn es angehakt ist auf die Zelle "E13" einen 1er)
- Reparatur G (Gibt wenn es angehakt ist auf die Zelle "E18" einen 1er)
Je nachdem welche Reparaturart man auswählt, soll eine Messagebox beim drücken eines Buttons aufpoppen, in der Level1-3 steht.
Die Level sind folgendermaßen aufgeteilt:
Level1: A, B, AB, F, G
Level2: AF, BF, AG, BG, FG
Level3: ABF, ABG, BFG, AFG, ABFG
Ich habe mir gedacht, ich fange an mit OR und XOR Operatoren zu arbeiten, was ja auch bei einem Level funktionert. Aber sobald man mehrere Level hat, funktioniert das nicht mehr. Mir ist auch klar warum es nicht funktioniert, ich weiß aber nicht wie ich es hinkriege...
Sub Levelausgabe()
' Level 1 ----------------------
If (Range("E3") = 1 Xor (Range("E8") = 1) Xor (Range("E13") = 1) Xor (Range("E18") = 1)) Then
MsgBox ("Level 1")
' Level 2 ----------------------
ElseIf (Range("E3") = 1 Xor Range("E13") = 1 Xor Range("E8") = 1 Xor Range("E13") = 1 Xor Range("E13") = 1 Xor Range("E18") = 1 Xor Range("E3") = 1 Xor Range("E18") = 1 Xor Range("E8") = 1 Xor Range("E18") = 1) Then
MsgBox ("Level 2")
' Level 3 ----------------------
ElseIf (Range("E3") = 1 Xor Range("E8") = 1 Xor Range("E13") = 1 Xor Range("E3") = 1 Xor Range("E8") = 1 Xor Range("E18") = 1 Xor Range("E8") = 1 Xor Range("E13") = 1 Xor Range("E18") = 1 Xor Range("E3") = 1 Xor Range("E13") = 1 Xor Range("E18") = 1 Xor Range("E3") = 1 Xor Range("E8") = 1 Xor Range("E13") = 1 Xor Range("E18") = 1) Then
MsgBox ("Level 3")
Else
MsgBox ("Bitte ankreuzen")
End If
End Sub
Ich weiß, es ist wahrscheinlich für 99% von euch eine peinliche Frage, aber ich habe niemanden den ich um Hilfe bitten kann und bin blutiger Programmier-Anfänger.
Danke im Voraus
|