in der Spalte 3 können die Zellen gelb, grün oder Color.selection = xlnone formatiert sein. Je nach Farbe soll in der Spalte 2 eine Wert eingetragen werden.
wenn gelb dann Werk 1
wenn grün dann Werk 2
wenn "xlnone" dann Werk 3
Habe es wie folgt versucht
For i = 2 to 2000
Range("C"&i).Select
If Interior.ColorIndex = 6 then Cells(i,1).Value = "Werk 1"
If Interior.ColorIndex = 4 then Cells(i,1).Value = "Werk 2"
If Interior.ColorIndex = xl.none then Cells(i,1).Value = "Werk 3"
next i
Irgendwie klappt das nicht?
Gruss Frederike