Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:02:57
helena
Danke Euch schon jetzt für kleine Hilfe
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A15")) Is Nothing Then
Else
If Target.Value = "1" Then
Target.EntireRow.Interior.ColorIndex = 3
Else
Target.EntireRow.Interior.ColorIndex = 0
End If
End If
End Sub
nicht Zeile sindern die Zelle welche es zutrifft.
gruss helena