Ereignis in Intervallen
Universal
gern würde ich verstehen, wie der "Application.OnTime"-Befehl funktioniert. Zum Test würde ich gern, das alle 10 Sekunden eine MsgBox mit der aktuellen Zeit angezeigt wird. Dafür habe ich folgenden Code geschrieben
Sub Zeitgeber()
Dim TimeStart As Double
Dim TimeEnd As Double
TimeStart = TimeSerial(Hour(Now), Minute(Now) + 1, 0)
TimeEnd = TimeStart + TimeSerial(0, 0, 10)
Application.OnTime earliesttime:=TimeStart, procedure:="Rede", _
LatestTime:=TimeEnd, schedule:=True
End Sub
Sub Rede()
MsgBox Time
End Sub
Nun wird leider nur einmal zur nächsten vollen Minute die MsgBox erzeugt. Ich würde sie anschließend aber gern alle 10 Sekunden erscheinen lassen ... Wie müsste der Code dann aussehen?
Vielen Dank für eure Hilfe!
viele Grüße
Uni