Event zur bestimmten Systemzeit auslösen
09.08.2006 12:30:41
J.
ist es möglich, eine bestimmte Funktion auszulösen, sobald die Systemzeit auf eine bestimmte Zeit springt, ohne dabei eine Systemauslastung von 100 % zu erzeugen? Mein Versuch sah wie folgt aus:
Sub Task()
Dim i As Long
Dim jetzt As String
Dim tasktime As String
For i = 2 To 5
tasktime = Cells(i, 1).Value
For x = 1 To 70000000
jetzt = Time
Cells(i, 2).Value = Time
If jetzt = tasktime Then Exit For
Next x
Cells(i, 1).Interior.ColorIndex = 3 'oder ein anderes event!
Next i
End Sub
Wobei tasktime die Uhrzeit des Zeitplans enthält, zu dem ausgelöst werden soll.
Würde mich über eure Hilfe freuen!
Anzeige