In diesem Beispiel wird ein zurzeit ausgeführtes Makro bis 18.23 Uhr desselben Tages unterbrochen.
Application.Wait "18:23:00"
In diesem Beispiel wird ein zurzeit ausgeführtes Makro für ungefähr 10 Sekunden unterbrochen.
newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime
In diesem Beispiel wird eine Meldung angezeigt, die anzeigt, dass 10 Sekunden abgelaufen sind.
If Application.Wait(Now + TimeValue("0:00:10")) Then MsgBox "Time expired" End If