AW: Application.OnTime
09.10.2006 11:16:42
fcs
Hallo Peter,
mit folgender Makro-Struktur
Gruß
Franz
Makros, Code in einem allgemeinen Modul:
Public Thiswb As Workbook, Zeit As Date
Sub Test()
Dim Delta As Double
'...Makrobefehle
'beim Aufruf von Zellen, Sheets etc. immer das Workbbook durch die Objekt-Variable Thiswb mit angegeben !
'wenn sich Aktionen auf diese Arbeitsmappe beziehen sollen, sonst wird in der gerade aktiven Datei eine Aktion ausgeführt.
Thiswb.Sheets("Tabelle1").Cells(2, 4) = 12
'Zeilen zur wiederholten Ausführung des Makros
Delta = 10 'Zeit in Minuten bis zur nächsten Ausführung
Zeit = Now + Delta / 60 / 24 'Zeitpunkt der nächsten Ausführung
Application.OnTime EarliestTime:=Zeit, Procedure:="Test"
End Sub
Sub OnTimeAbbrechen()
'Abschalten von OnTime-Ereignissen
On Error Resume Next
Application.OnTime EarliestTime:=Zeit, Procedure:="Test", Schedule:=False
End Sub
Makros, Code unter "DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call OnTimeAbbrechen
End Sub
Private Sub Workbook_Open()
Set Thiswb = ThisWorkbook
'Nachfolgende Zeile deaktivieren, wenn Makro "Test" manuell gestartet werden soll
Call Test 'Makro, das sich wiederholen soll, starten.
End Sub