Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Value
Case 1: .Interior.ColorIndex = 3 'rot
Case "test": .Interior.ColorIndex = 5 'blau
'usw.
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
End Sub