Wie rufe ich eine Sub alle 10 sec. auf?
06.02.2005 10:44:24
Christian
nach dem ich heute morgen schon prompt eine Lösung bekommen habe, probier ichs nochmal:
Ich möchte ein Unterprogramm alle 10 sec. starten, so lange die Tabelle/Arbeitsmappe geöffnet ist.
z.Z. habe ich es mit der Funktion Application.OnTime gelöst, wobei ich mit einer For next schleifen sehr sehr sehr viele starts vordefiniere - Siehe unten
Gibt es bessere Lösungen?
Sag schon mal danke
Gr christian
For std = 0 To 7
For min = 0 To 59
For sec = 1 To 59 Step timeStep
Application.OnTime Now + TimeValue(std & ":" & min & ":" & sec), "check"
Next sec
Next min
Next std