Ganze Zeile einfärben wenn Wert größer 0
22.05.2015 12:48:24
Michael
ich möchte wenn im Bereich von M3 bis Ende der Tabelle ein Wert über 0 vorkommt die ganze Zeile innerhalb der Tabelle Rot einfärben. Folgender Code funktioniert nicht:
Private Sub Zeilen einfärben
Dim Target As Range
If Cells(Target.Row, 4).Value >0 Then
Target.EntireRow.Interior.Color = vbRed
Else
Target.EntireRow.Interior.ColorIndex = xlNone
End If
End Sub
ich bin nicht wirklich geübt mit VBA. Der Code kann auch total Müll sein :(Über bedingte Formatierung möchte ich das nicht machen weil das einfärben der Zeilen Bestandteil eines größerern Makros sein soll und automatisch auf weitere Tabellen mit selben Aufbau angewendet werden soll.
Gruß
Michael