Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

do while schleife Zeitgesteuert

Betrifft: do while schleife Zeitgesteuert von: chris b
Geschrieben am: 14.09.2004 12:56:54

Hallo VBAler,
eine frage wie kann ich es anstellen das ich eine for do while Schleife habe die z.b genau 5 sekunden läuft ?
Meine es wie hier

do while 5 sekunden
5 sekunden ständiger durchlauf
loop

Danke Christian

  


Betrifft: AW: do while schleife Zeitgesteuert von: Ulf
Geschrieben am: 14.09.2004 13:03:05

Option Explicit
Sub Fuenf()
Dim Ende As Single, i As Long
Ende = Timer + 5
Do While Timer <= Ende
  i = i + 1
Loop
MsgBox i
End Sub


Ulf


  


Betrifft: Danke Ulf, Timer kannte ich gar nicht :-) o.w.T. von: Reinhard
Geschrieben am: 14.09.2004 13:05:46




  


Betrifft: AW: do while schleife Zeitgesteuert von: chris b
Geschrieben am: 14.09.2004 13:16:25

Vielen Dank Ulf. !


  


Betrifft: AW: do while schleife Zeitgesteuert von: Reinhard
Geschrieben am: 14.09.2004 13:03:10

Hi Christian,
in einer do while Schleife geht es m.E. nur in etwa so

do while n < 56353876
n=n+1
loop

Du müsstest dann die 56353876 solange verändern bis die Zeit stimmt. Okay, das könnte man auch per makro machen, aber einfacher ist wohl:

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Gruß
Reinhard


  


Betrifft: AW: do while schleife Zeitgesteuert von: chris b
Geschrieben am: 14.09.2004 13:18:11

Danke Reinhard !

Wait bringt mir aber in meinem Fall nichts.
Weil in der Zeit in der die schleife läuft werden mauspositionen erfasst die dann abgspielt werden können.
Danke euch beiden !


 

Beiträge aus den Excel-Beispielen zum Thema "do while schleife Zeitgesteuert"