bestimmte Zeile automatisch markieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("B1:P26"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value
Case "L"
bytColor = 4 ' Grün
Case "N"
bytColor = 5 ' Blau
Case "E"
bytColor = 6 ' Gelb
Case "M"
bytColor = 7 ' Rosa
Case Else
bytColor = 0 ' keine Farbe
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub