Hallo,

ich möchte die Füllfarben zweier Spalten einer Tabelle (E und R) miteinander vergleichen und in einer dritten Spalte (B) das Ergebnis als Füllfarbe ausdrücken.

Die Formatierung soll folgende Form besitzen (nach Index)

B E R
3 = 3 und 3
3 = 3 und 44
3 = 3 und 50
3 = 3 und 33
3 = 50 und 3
50 = 50 und 45
50 = 50 und 50
50 = 50 und 33



Ich habe folgendes probiert, aber es klappt nicht....

[/ 'Beginn der Farbzuweisung für den Gesamtstatus

Dim LoI As Long ' Schleifenvariable
Dim LoLetzte5 As Long ' Variable letzte Zeile in Spalte E
Dim LoLetzte18 As Long ' Variable letzte Zeile in Spalte R


' letzte belegte Zeile unabhängig von Excelversion für Spalte E(5) und R (18)
LoLetzte5 = IIf(IsEmpty(Cells(Rows.Count, 5)), Cells(Rows.Count, 5).End(xlUp).Row, .Rows.Count)
LoLetzte18 = IIf(IsEmpty(Cells(Rows.Count, 18)), Cells(Rows.Count, 18).End(xlUp).Row, .Rows.Count)
If LoLetzte18 > LoLetzte5 Then LoLetzte5 = LoLetzte18 ' maximale Zeilenanzahl von Spalte A und B
For LoI = 5 To LoLetzte5
If .Cells(LoI, 5).Interior.ColorIndex = 3 And .Cells(LoI, 18).Interior.ColorIndex = 50 Then ' Vergleich ob Zelle Spalte E und Zelle Spalte R die gleiche Füllfarbe besitzen
.Cells(LoI, 2).Interior.ColorIndex = 3 ' Füllfarbe setzen

End If
Next LoI
End With
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein ]

Vielleicht kann mir jemand weiterhelfen.

Liebe Grüße,
bluecard