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

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von Knofi , 22.10.2003, 18:19 Uhr , 21 mal gelesen