Wie kann ich, oder kann ich eine For-Schleife raufzählen lassen mit Verzögerung

[coolbininet]

Hallo Leute!

Habe in VBA ein kleines Progrämmchen geschrieben und komme jetzt nicht weiter!

Dachte ich könnte mit der Wait-Methode die in einer For-Schleife gezählten Zahlen mit einer Pause von einer Sekunde ausgeben!

Geht das, bei mir nicht!

Hilfe!

Grüsse Coolbininet

[testi]

Am Besten ist es, wenn du dir eine eigene Routine schreibst.
Wie z.B.:

Public Sub Pause(Zeit As Variant)
Zeit = CDec(Zeit)
Start = Timer
Anfang = 0
Do While Anfang < Zeit
Anfang = Timer - Start
DoEvents
Loop
End Sub

Dann kannst du die For-Next Schleife wie wie folgend pausieren:

For i= 1 to 324234
........
Pause 1 'Für 1 Sekunden Pause
Next i

mfG
Testi

[jak]

Einfacher gehts mit wait (siehe VBA-Hilfe).

Jak

[coolbininet]

Ganz besonders möchte ich testi danken!

Kanst ma noch erklären, was in der Sub da gemacht wird?

Grüße

Coolbininet

[Potassium]

Public Sub Pause(Zeit As Variant) 'Variable Zeit wird als variablentyp variant übergeben
Zeit = CDec(Zeit) 'variable zeit wird in eine dezimalzal umgewandelt
Start = Timer 'Variable Start wird der wert von Timer zugewisen
Anfang = 0 'Variable Anfang wird 0 gesetzt
Do While Anfang < Zeit 'während variable anfang kleiner variable zeit ist soll er folgendes tun:
Anfang = Timer - Start 'Variable anfang ist variable timer weniger timer von anfang
DoEvents ' ka was das soll
Loop ' ende der do while schleife
End Sub 'ende des subs

hoffe es hilft ein wenig

[jak]

Finds halt seltsam das man sich eine eigene Untermethode bastelt wenn das ganze mit:
Application.Wait(Now + TimeValue("0:00:01"))
erledigt ist...


Jak

[flinx]

Original geschrieben von jak
Finds halt seltsam das man sich eine eigene Untermethode bastelt wenn das ganze mit:
Application.Wait(Now + TimeValue("0:00:01"))
erledigt ist...

IIRC hat DoEvents den Vorteil, daß man Eingaben während des Wartens verarbeiten kann, während dies mit Wait nicht der Fall ist. Bspw. Kann man das 'Warten mittels Wait'-Makro im Editor nicht durch Abbrechen beenden, das mit DoEvents hingegen schon. Bitte um Korrektur, falls das falsch sein sollte .

[jak]

Ja, der Nachteil ist, das wait Excel unterbricht. Die Schleife ist aber auch nicht sonderlich schön (verhindert IMHO das der Prozessor in wait oder sleep Modi geht). Man könnte es auch mit OnTime machen (dann hat man in der Schleife einen Aufruf eines Unterprogramms).

Jak

[coolbininet]

Hallo nochmal!

Kann ich nun mit dieser Pause Sub auch nur um ein 10el oder ein 100el einer Sekunde verzögern, wenn nein, bräuchte ich da auch eine Möglichkeit.

Grüße

Coolbininet

[jak]

Das ist ein wirklicher Vorteil von timer, das er unter Windows auch Bruchteile von Sekunden angibt (soweit ich das gesehen habe bis zu 100stel). An sich ist timer+0.01 also erlaubt. Probier einfach mal aus was passiert wenn du "Pause 0.1" eingibst.

Jak