Microsoft Excel

Herbers Excel/VBA-Archiv

do loop nach 10 Sekunden abbrechen

Betrifft: do loop nach 10 Sekunden abbrechen von: Michael H
Geschrieben am: 11.11.2012 11:30:55

Hallo Miteinander!

Ich möchte gerne eine Schleife nach 10 Sekunden abbrechen, da kein Ergebnis mehr geliefert wird. Ich verwende derzeit

Do
'wait
DoEvents
Loop Until Dir(Ablage) <> ""

Wie kann ich jetzt ein exit do nach 10 Sekunden erreichen?

Vielen Dank für Eure Hilfe.
VG Michael H

  

Betrifft: do loop nach 10 Sekunden abbrechen von: Anton
Geschrieben am: 11.11.2012 11:38:31

Hallo Michael,

so vllt:

  sngStart = Timer
  Do
    'wait
    DoEvents
    If Timer - sngStart > 10 Then Exit Do
  Loop Until Dir(Ablage) <> ""

mfg Anton


  

Betrifft: AW: do loop nach 10 Sekunden abbrechen von: Michael H
Geschrieben am: 11.11.2012 11:42:26

Manchmal ist es so einfach. Danke!

VG Michael H


  

Betrifft: ist vielleicht nicht so wichtig... von: Tino
Geschrieben am: 11.11.2012 13:54:42

Hallo,
aber wenn der Code zwischen 23:59:55 und 00:00:05 läuft geht’s mit Timer nicht.
Timer fängt ab 0Uhr wieder bei 0 an und würde somit auch eine Endlosschleife erzeugen.

Alternativ mit Now arbeiten, also mit Datum und Uhrzeit.

Beispiel:

Dim datExitTime As Date
datExitTime = Now + TimeSerial(0, 0, 10)
Do
  If Now > datExitTime Then Exit Do
Loop
Gruß Tino


 

Beiträge aus den Excel-Beispielen zum Thema "do loop nach 10 Sekunden abbrechen"