Hallo Martin,

Die Befehle stehen nirgendow!
Du setzt doch die Anfangswerte für die RTC in der Sub "Setdate:"!

Diese Sub änderst du so, wie ich oben geschrieben habe. Zusätzlich must du dann noch das ' vor Weekday = 7 entfernen, damit der richtige Wochentag in die RTC geschrieben wird.

Gruß Dirk