Datum die Zweite............
11.11.2007 16:57:00
Sonnenpeter
Excel und Datum lassen mir wieder mal nur das Fragen im Forum offen :-(
Bereits gestern wurde mir mit CDate geholfen.
Das nachfolgende Makro funktioniert aber leider nicht wenn die Zellwerte "Datum wie 02.02.2008" über Formel hinterlegt sind.
Sub TestUrlaubsplanung()
Tag1 = CDate(Sheets("Urlaubsliste").Range("B6").Value)
Tag2 = CDate(Sheets("Urlaubsliste").Range("C6").Value)
With Sheets("Feiertage").Columns("I:I")
Set c = .Find(Tag1, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
Wert1 = c.Row
End If
End With
End Sub
Was muss ich noch ändern?
Gruß Sonnenpeter