Lösung
13.10.2008 16:27:00
Nadja
Musste nur
SMonth = (Format(Now - daysBefore, "mmdd"))
in
SMonth = (Format(Now - daysBefore, "ddmm"))
ändern