Zeitspanne

Question

Hallo,

ich habe in Spalte2 Uhrzeiten im Halbstundentakt
07:00
07:30
08:00
08:30
09:00
09:30
10:00
in die entsprechenden Zeilen möchte ich Einträge vornehmen, wenn über eine Suchevariable (Cells(i,3) die Zeiten übereinstimmen.

Set Rng = Columns(2).Find(CDate(.Cells(i, 3)))

Das klappt soweit. Jetzt das Problem:
Es gibt in Cells(i,3) einige Ausnahmen, bei denen die Zeit nicht die ganze oder halbe Stunde ist, sondern z.B. 8:15 oder 9:45.
Wie kann ich es anstellen, dass in diesen Fällen die Find-Funktion kein "Nothing" ergibt und die volle Stunde also 8:00 bzw. 9:00 als Ergebnis gefunden werden?
Danke für jeden Tipp. Gruß Andreas

Answer 1

Hallo Andreas,

versuchs mal so

Set rng = Columns(2).Find(TimeValue(IIf(Minute(.Cells(i, 3)) > 30, Hour(.Cells(i, 3)) & ":30", Hour(.Cells(i, 3)) & ":00")))

Hinweis: Du hast vor Cells(i,3) einen Punkt stehen. Habe das mal so übernommen, da ich davon ausgehe, dass du die Zeile innerhalb eines With Blocks stehen hast, der sich auf ein Sheet bezieht.

Gruß Mr. K.

Answer 2

Hallo,

ja das löst mein Problem. Danke und viele Grüße!!
Andreas