Hallo,
wie wäre es mit der Abfrage
VonDatum = cdate(InputBox("Bitte Datum des ersten zu betrachtenden Tages eingeben:", "Datumseingabe", Format(Now - 1, "DD.MM.YYYY")))
BisDatum = cdate(InputBox("Bitte Datum des letzten zu betrachtenden Tages eingeben:", "Datumseingabe", Format(Now, "DD.MM.YYYY 23:59:59")))
VonDatum = dateserial(year(VonDatum), month(VonDatum), day(VonDatum)) ' Uhrzeit entfernen
BisDatum = dateserial(year(BisDatum), month(BisDatum), day(BisDatum)+1) ' Uhrzeit entfernen
'...
'...
if VonDatum <= .ReceivedTime and .ReceivedTime < BisDatum then
'hier dein Code, der das Tabellenblatt füllt
end if
Grüße, ugor
|