Zelle einfärben

Private Sub Worksheet_Change1(ByVal Target As Range)
Dim objCell As Range
For Each objCell In Target
If Not Intersect(objCell, Range("A1:A120")) Is Nothing Then 'Bereich anpassen
Select Case objCell.Text
Case "1": objCell.Interior.ColorIndex = 3
Case "2": objCell.Interior.ColorIndex = 4
Case "3": objCell.Interior.ColorIndex = 5
Case "4": objCell.Interior.ColorIndex = 6
Case Else: objCell.Interior.ColorIndex = xlNone
End Select
End If
Next
End Sub