SelectionChange <-> Change
10.09.2003 12:43:57
Franz W.
ich habe Problem mit Worksheet_Change: folgenden Code macht er nicht, er färbt die Zelle nicht, wenn ich das entsprechende Datum eintrage:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = Date Then
ActiveCell.Interior.ColorIndex = 3
ElseIf ActiveCell.Value = Date - 1 Then
ActiveCell.Interior.ColorIndex = 6
Else
ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub
Das Ganze mit Selection_Change hingegen klappt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = Date Then
ActiveCell.Interior.ColorIndex = 3
ElseIf ActiveCell.Value = Date - 1 Then
ActiveCell.Interior.ColorIndex = 6
Else
ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub
Das funktioniert. Das heißt, ich muss das Datum reinschreiben, die Zelle verlassen und dann wieder hingehen. Dann geht's.
Warum aber geht's nicht mit dem oberen Code mit Worksheet_Change gleich nach dem Verlassen der Zelle?
Bitte um Eure Hilfe und vielen Dank schon mal
Grüße
Franz
Anzeige