Datum in String umwandeln?
30.07.2003 14:38:28
Marion
ich möchte in einem Kalender bestimmte Tage farblich kennzeichnen und habe
hierfür folgendes Makro geschrieben.
In Zelle A1 steht dabei ein ganz normales Datum (z.B. 02.11.2003)
Dim rng As Range
Dim sSearch As Date
sSearch = Range("A1").value
Set rng = Sheets("2003").Rows(9).Find(sSearch, LookAt:=xlPart)
If Not rng Is Nothing Then
rng.Offset(2, 0).Range("A1:A2").Interior.ColorIndex = 27
End If
Da ich mehrere Tage in einer kleinen For-Next-Schleife einfärben möchte wird
die Variable mit einem Datum nach dem anderen gefüllt.
Leider wird z.B. der 01.11.2003 bei der Variablen sSearch = 01.01.2003
ebenso gefärbt, was ja eigentlich nicht sein dürfte.
Habe ich bei der Deklaration einen Fehler gemacht?
Müsste ich das Datum vielleicht als String einlesen?
Viele Grüße
Marion