Office: VBA If else

Hallo,

ich muss einen Quellcode mit VB schreiben, der eine if-else abfrage beinhaltet.

Eine Quellzelle kann die Zustände:
-Grün
-Rot
-Blau
-Weiß mit muster

haben.



Die Quellzellen sind I6, J6, K6, L6 die jeweils mit einer Farbe oder einem Muster hinterlegt sind.

Wenn min eine Zelle davon Rot ist, soll die Zielzelle rot sein.
ansonsten
Wenn alle gemustert ist, soll die Zielzelle gemustert sein.
ansonsten
Wenn min 1 Grün ist soll die Zielquelle grün sein.
ansonsten
wenn alle Blau, dann Ziel Blau
ansonsten
Zielquelle grau


Das klappte auch anfangs ganz gut. doch nun muss ich feststellen, wenn die ersten 3 grün sind und die letzte weiss, gemustert wird die Zielzelle nicht grün sondern weiss, was von der Rücksetzung des Formats am Anfang des Codes kommt.
Sie sollte ja aber grün sein.

Ich finde den Fehler nicht, kann mir jemand helfen?

Sub KPI_Update()
'
' KPI_Update Makro
' Here the Column "KPI" gets filled
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
'Set pattern to "none" // insert all destination cells
Range("G6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("D7").Select
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------



If Worksheets("Overview").Range("I6").Interior.Color = 255 Or Worksheets("Overview").Range("J6").Interior.Color = 255 _
Or Worksheets("Overview").Range("K6").Interior.Color = 255 Or Worksheets("Overview").Range("L6").Interior.Color = 255 _
Then Worksheets("Overview").Range("G6").Interior.Color = 255 _
Else _
If Worksheets("Overview").Range("I6").Interior.Pattern = xlChecker And Worksheets("Overview").Range("J6").Interior.Pattern = xlChecker _
And Worksheets("Overview").Range("K6").Interior.Pattern = xlChecker Or Worksheets("Overview").Range("L6").Interior.Pattern = xlChecker _
Then Worksheets("Overview").Range("G6").Interior.Pattern = Worksheets("Overview").Range("I6").Interior.Pattern _
Else _
If Worksheets("Overview").Range("I6").Interior.Color = 65280 Or Worksheets("Overview").Range("J6").Interior.Color = 65280 _
Or Worksheets("Overview").Range("K6").Interior.Color = 65280 Or Worksheets("Overview").Range("L6").Interior.Color = 65280 _
Then Worksheets("Overview").Range("G6").Interior.Color = 65280 _
Else _
If Worksheets("Overview").Range("I6").Interior.Color = 12611584 And Worksheets("Overview").Range("J6").Interior.Color = 12611584 _
And Worksheets("Overview").Range("K6").Interior.Color = 12611584 Or Worksheets("Overview").Range("L6").Interior.Color = 12611584 _
Then Worksheets("Overview").Range("G6").Interior.Color = 12611584 _
Else _
If Worksheets("Overview").Range("I6").Interior.Pattern = xlChecker Or Worksheets("Overview").Range("J6").Interior.Pattern = xlChecker _
Or Worksheets("Overview").Range("K6").Interior.Pattern = xlChecker Or Worksheets("Overview").Range("L6").Interior.Pattern = xlChecker _
Then Worksheets("Overview").Range("G6").Interior.Pattern = xlChecker


End Sub


PS: Der Übersicht halber is noch eine txt-Datei angehängt.

Vielen Dank im Voraus
Patrick