Danke an alle hab die Lösung soeben gefunden
Musste nur
SMonth = (Format(Now - daysBefore, "mmdd"))
in
SMonth = (Format(Now - daysBefore, "ddmm"))
ändern