Hallo Peter,
Vorschlag:
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case CStr(Cells(i, 1)) & Cells(i, 2)
Case "4A", "4B", "4C", "3A", "3B", "2A"
Cells(i, 3) = "intolerabel"
Cells(i, 3).Interior.ColorIndex = 3
Case "4D", "3C", "3D", "2B", "2C", "1A"
Cells(i, 3) = "unerwünscht"
Cells(i, 3).Interior.ColorIndex = 6
'usw.
Case Else
Cells(i, 3).Interior.ColorIndex = 0
End Select
Next i
Den Rest bekommst du bestimmt selber hin.
Gruß
Holger
|