Eingefärbte Zelle aufheben
08.07.2003 08:45:04
Rudolf
Ich habe ein Problem. Ich färbe mit folgender Anweisung jeden neuen Eintrag in der Spalte A ein. Nun möchte ich die eingefärbte Zelle automatisch aufheben, wenn ich in der selben Zeile in Zelle C ein Datum eingebe.
Danke für eure Hilfe
Gruß Rudi
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A4:A300")) Is Nothing Then Exit Sub
If Target.Value >= 1 Then
Target.Interior.ColorIndex = 8
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub