Sub ColorCHANGEvalue()
Dim rngBereich As Range
Dim rngZelle As Range
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Set rngBereich = Range("A1:A" & lngLetzte)
For Each rngZelle In rngBereich
With rngZelle
Select Case .Value
Case "q"
.Interior.Color = RGB(255, 255, 255)
Case "w"
.Interior.Color = RGB(255, 0, 0)
Case "i"
.Interior.Color = RGB(255, 151, 1)
Case "u"
.Interior.Color = RGB(1, 75, 1)
End Select
End With
Next
End Sub