nicht die ganze Zeile färben
09.12.2015 09:41:52
Erik
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 14 And .Value = "a" Then
Rows(.Row).Interior.ColorIndex = 3
ElseIf .Column = 13 And .Value = "a" Then
Rows(.Row).Interior.ColorIndex = 6
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With
Wie muß es heißen damit nicht die komplette Zeile gefärbt wird sonder nun Spalte A-N ?
Gruß Erik