Hallo
Habe ein kleines Problem: ich möchte, wenn ein bestimmter Wert in einer Zelle steht, einen gewissen Zellenbereich derselben Zeile einfärben. Bis jetzt hab ich es nur geschaft, die ganze Zeile einzufärben, was ich aber nicht möchte.
Der Code dazu:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 And Target.Address <> "$A$1" Then Exit Sub ' A=1, B=2,...H=8, usw
Dim zei As Long
For zei = 1 To Cells(65536, 3).End(xlUp).Row
'Cells(zei, 3).EntireRow.Interior.ColorIndex = xlNone
If Cells(zei, 3) = Range("D4") Then Cells(zei, 3).EntireRow.Interior.ColorIndex = 34
Next zei
End Sub
Herzlichen Danke für's Lösen
G.
|