Schleife x sekunden laufen lassen
Fettertiger
ich stehe heute wieder auf dem Schlauch und Google hilft mir irgendwie auch nicht weiter, obwohl die Aufgabe vermutlich Pipifax für Euch ist:
Ich möchte eine Schleife nach diesem Muster laufen lassen:
Sub test()
Endzeit = now + timevalue("00:00:05")
Do until x=y
if now > endzeit then exit do
mach_irgendwas
loop
End Sub
Hat jemand einen Vorschlag?
Danke und Gruss
Theo