AW: Macro für Suchen und Zelle Farbig Markie
05.08.2021 19:31:21
GerdL
Moin Andi u. Herbert,
... so auf die Schnelle hängt es von der Eingabezelle ab.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$P$2" Then
If Val(Target.Text) 0 Then
Select Case Target.Address
Case "$K$2": Call Einfaerben(Target.Text, 13551615)
Case "$M$2": Call Einfaerben(Target.Text, 13561798)
Case "$P$2": Call Einfaerben(Target.Text, -4142)
End Select
End If
End If
End Sub
Sub Einfaerben(vntVal As Variant, lngCol As Long)
Dim Bereich As Range, Zelle As Range
Set Bereich = Intersect(Range("A:A,C:C,E:E,G:G"), Range("$2:$102"))
Set Zelle = Bereich.Find(What:=vntVal, after:=Range("G102"), LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
If Not Zelle Is Nothing Then Zelle.Offset(0, 1).Interior.Color = lngCol
Set Bereich = Nothing: Set Zelle = Nothing
End Sub
Gruß Gerd