| VBA-Beispiel 082 | |
|
|
alle 15 Minuten automatisch erinnern |
|
| Nach dem öffnen einer Exeldatei soll automatisch alle 15 Minuten eine Meldung erscheinen, die den Anwender auffordert, die Datei zu schließen. Zur Demonstration erscheint der Hinweis hier alle 5 Sekunden. | |
|
'Eintrag in "DieseArbeitsmappe": Private Sub Workbook_Open() Start = True Call Aufforderung End Sub Sub Workbook_BeforeClose(Cancel As Boolean) 'nach dem Schließen der Datei die Prozedur nicht mehr aufrufen Application.OnTime EarliestTime:=Startzeit, Procedure:="Aufforderung", Schedule:=False End Sub 'Eintrag in einem Modul: Public Start As Boolean Public Startzeit As Date Sub Aufforderung() If Start = True Then Start = False Else MsgBox "Datei bitte schließen", , "es ist: " & Time End If 'Hinweis alle 5 Sekunden Application.OnTime Now + TimeSerial(0, 0, 5), "Aufforderung" Startzeit = Now + TimeSerial(0, 0, 5) 'Hinweis alle 15 Minuten 'Application.OnTime Now + TimeSerial(0, 15, 0), "Aufforderung" 'Startzeit = Now + TimeSerial(0, 15, 0) End Sub |
|
|
Download: vba082.zip |
|
relevante Links:
|
|
| |