im Netz findet man diverse Sucher, die jede zweite Zeile infärben wollen.
Folgender Code macht sowas:
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
Ich brauche aber einen Code, der mir nur die aktuelle bzw eine bestimmte Zelle einfärbt.Weiß wer was?
Vielen Dank
Philipp