Zeilenfarbe ändern bei bestimmten Wert in Spalte oder bei Select

[MarcS]

Nach weiterer Suche im Netz funktioniert erstmal folgender Code

Code:

Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Count > 1 Then Exit Sub
    If MarkierteZelle = "" Then
        MarkierteZelle = Target.Address
        AlteFarbe = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 36
    Else
    If Range(MarkierteZelle).Interior.ColorIndex = 36 Then
        Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe
    End If
        AlteFarbe = Target.Interior.ColorIndex
        MarkierteZelle = Target.Address
        Target.Interior.ColorIndex = 36
    End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 5 And .Value > 0 Then
            Rows(.Row).Interior.ColorIndex = 50
        ElseIf .Column = 5 And .Value = 0 Then
            Rows(.Row).Interior.ColorIndex = xlNone
        Else
            Rows(.Row).Interior.ColorIndex = AlteFarbe
    End If
End With
End Sub

In der o.g. Reihenfolge behalten die grünen Zellen ihren Hintergrund, sobald eine Zelle verlassen wird.
Die Suchtreffer (auch im grünen Bereich) werden in gelb ausgegeben / hervorgehoben