======[VBA] [Excel] sleep()======
Excel VBA kennt die Methode wait() um bis zu einer bestimmten Uhrzeit zu warten bevor der Code weiter verarbeitet wird. Doch meistens will man dies nicht an eine Uhrzeit knüpfen sondern ab jetzt X Sekunden warten.

=====Lösung von Microsoft=====
In der F1-Hilfe zu Excel VBA findet man auch 2 nicht wirklich elegante Lösungen Ich will euch diese nicht vorenthalten
<code vb>
' Aus der F1-Hilfe von Excel.

'This example pauses a running macro for approximately 10 seconds.
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime 

'This example displays a message indicating whether 10 seconds have passed.
If Application.Wait(Now + TimeValue("0:00:10")) Then
	MsgBox "Time expired"
End If
</code>
=====Meine Lösung=====
<code vb sleep>
'/**
' * Wartet mit der weiteren Ausführung des Codes für X Sekunden
' * @example    Call sleep(10)
' * @param  <Integer>   Sekunden
' * @return void
' */
Public Sub sleep(sec As Integer)    
	Call Application.Wait(DateAdd("s", sec, Now()))
End Sub
</code>

Diese kann dann irgendwo im Code angewendet werden
<code vb>
'10 Sekunden Pause machen
Call sleep(10)
</code>
{{tag>VBA MS_Excel}}