title image


Smiley Re: Macro nur einmal pro Tag laufen lassen
Hi,

voraussetzung für dieses Makro ist, das der User vor dem schliessen

speichert:



Füge ein in : diese Arbeitsmappe (projektexplorer)

'--------------

Option Explicit



Private Sub Workbook_Open()

Call IchLaufNurEinmalAmTag

End Sub

'---------------------



Füge ein als Modul diese zwei Makros



'------------------



Option Explicit

Dim Datum As Date

Dim DatumAlt As Date



Sub IchLaufNurEinmalAmTag()

'-- Sys-Datum übernehmen

Datum = Date

'-- Datum alt übernehmen

DatumAlt = Sheets("Tabelle3").Range("C10")



If DatumAlt = Datum Then

Exit Sub

Else: Sheets("Tabelle3").Range("C10") = Datum _

: Call Machwas

End If



End Sub





Sub Machwas()

MsgBox "Ich mach doch was!"

End Sub



'----

Ich glaube nicht dass es ohne speichern geht!

Bin mal gespannt was noch an Vorschlägen kommt !!!!!!



Gruss

WOlf








Auch aus Steinen, die dir in den Weg gelegt werden, kannst du etwas Schönes bauen.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: