Sub Mein_Makro()
Dim tmp$, init_w As Boolean
tmp = GetSetting(appname:="Makro_Status", section:="Last_Run", _
Key:="Datum", Default:=vbNullString)
If tmp = vbNullString Then _
SaveSetting "Makro_Status", "Last_Run", "Datum", Date: init_w = True
If tmp < Date Or init_w Then
SaveSetting "Makro_Status", "Last_Run", "Datum", Date
' Dein Makro welches nur einmal am Tag läuft ....
End If
End Sub Code eingefügt mit Syntaxhighlighter 1.16