ich habe ein kleines Problem mit meinem Code und finde den Fehler nicht.
Ich nutze das Formularsteuerelement Kontrollkästchen. Sein Ausgabewert (wahr, falsch) schreibt es in die Zelle AB2. Anhand diesem Wert möchte ich bestimmte Zellen umfärben. Leider klappt es nicht. Der komplette Bereich wird entweder schwarz oder blau gefärbt, eine Farbunterscheidung der einzel angesprochenen Zelle passiert nicht. Weiß jemand was ich hier flasch mache?
Danke
Stu
Sub farbe()
If Range("AB2") = WAHR Then
Range("O1:T1,o24:t24,o2:o23,t2:t23").Interior.Color = 9
Range("p2:s23").Interior.Color = 5
Range("q3:q7,q10:q11").Interior.Color = 4
Range("r5:r8").Interior.Color = 9
Range("r10:r11").Interior.Color = 3
Else
Range("o1:t24").Interior.ColorIndex = 11
End If
End Sub