Hallo,
ersetze mal die Zeile
If Format(arrDaten(i, 3), "dd.mm.yyyy") >= Format(arrZeitraum(0), "dd.mm.yyyy") And Format(arrDaten(i, 3), "dd.mm.yyyy") <= Format(arrZeitraum(1), "dd.mm.yyyy") Then
durch
If CDate(arrDaten(i, 3)) >= CDate(arrZeitraum(0)) And CDate(arrDaten(i, 3)) <= CDate(arrZeitraum(1)) Then
Dann sollte die richtige Filterung der Daten erfolgen.
Gruß
M.O.