Problem mit find-Methode
Jens
ich komm nicht weiter bei einem Problem mit der find-Methode. Hier ein Minimalbeispiel:
In einem Blatt stehen in Spalte A die Tage des Jahres mit Datum, im Format "1.1.06", "2.1.06", ... bis zum "31.12.06".
Folgender Code sollte einen bestimmten Tag finden:
Dim rng As Range, zelle As Range
Dim strDatum&
Dim datum As Date
datum = Date
strDatum = CStr(Day(datum)) & "." & CStr(Month(datum)) & "." & Right(CStr(Year(datum)), 2)
Set rng = ActiveSheet.Columns(1)
Set zelle = rng.Find(What:="17.2.06", LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False,
SearchFormat:=False)
Aber zelle ist nach der letzten Zeile noch immer Nothing.
Kann mir wer weiterhelfen?
LG,
Jens