Zelle mit Tagesdatum färben
03.05.2005 08:58:56
Anderl
ich möchte gern Zellen mit dem aktuellen datum farbig gestalten. Dabei sollen mit dem Datum gerechnet werden. Das mit der Farbe klappt schon, mit dem Datum stecke ich fest. Ich glaube es liegt am format, es wirft mir immer einen string aus :( Wer kann mir kurz helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
Year = LTrim(Year(Now()))
Month = LTrim(Month(Now()))
Dag = LTrim(Day(Now()))
datum01 = Dag + "." + Month + "." + Year
Set Target = Intersect(Target, Range("A1:V370"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value
Case datum01
bytColor = 3 ' Rot
Case Else
bytColor = 0 ' keine Farbe
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Danke
Anderl