Countdown oder Timer

Guten Morgen ihre Lieben
Ich habe mal wieder ein kleines Problem. Ich arbeite mit Word, aber ich denke, wenn ich eine Excel-Lösung habe, dann kann ich das irgendwie umbasteln und dann geht das :D aber mir fehlt sogar der Ansatz.
Mein Vorhaben ist, dass ich per Knopfdruck eine Makro starten kann. Dann soll ich UserForm erscheinen, auf dem ein Label mit dem Text "Die Makro startet in" ist. Darunter soll dann ein zweites Label sein, dass ein Countdown ist und von 10 Sekunden rückwärts zählt. Nachdem diese 10 Sekunden vorbei sind, sollte "Die Makro starte in 00.00.00" stehen und das Userform soll verschwinden und die Makro soll weitergehen.
Doch ich weiss nicht, wie ich das anstelle! Die Zeit ist immer 10 Sekunden, das kann ich also als Konstante nehmen, aber ich finde überhaupt keinen Ansatz und ich weiss auch gar nicht, ob das ein Timer oder ein Countdown ist.
Ausserdem weiss ich auch nicht, wie ich das programmieren muss, dass das Userform sich nach 10 Sekunden automatisch schliesst... Stehe also bei 0 und wäre froh um ein wenig Hilfe!
Ganz liebe Grüsse
Ximena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

'Erstellt unter Word 2010 'Makros unter "ThisDocument" Private Sub CommandButton1_Click() Dim datTime As Date, iCount As Integer On Error GoTo weiter 'Falls Userform vorzeitig geschlossen wird UserForm1.Show False iCount = 10 datTime = Now With UserForm1 Do .Label2.Caption = Format(iCount, "0") & " Sekunden" .Repaint Do Loop Until Now - datTime >= 0.95 * TimeSerial(0, 0, 1) datTime = Now iCount = iCount - 1 Loop Until iCount

Hallo Ximena,
die Initialisierungsprozedur eines Userforms wird ausgeführt, bevor das Userform angezeigt wird.
Deshalb bringt es nichts zeitgesteuerte Änderungen die die Inhalte von Steuerelemente ändern sollen in dieser Prozedur unterzubringen. Die gesamte Zeitsteuerung der Countdown-Anzeige muss außerhalb des Userforms erfolgen.
Deshalb wird das Userform mit dem Parameter False angezeigt. Dadurch ist das Userform ungebunden und die aufrufende Prozedur läuft weiter - hier dann mit der Verzögerung von 10 Sekunden durch die Do-Loop-Schleifen.
Die Anzeige "Makro1 läuft" ist kein Fehler. Das hatte ich zum Testen eingebaut. Nachdem der Counter auf 0 ist und dem Schliessen des Userforms wird mit
Call Makro_1
das Makro "Makro_1" gestarte, das die MsgBox anzeigt.
Nachfolgend der Code, wie er in ein allgemeines Modul integriert werden könnte.
Gruß
Franz

'Code in einem allgemeinen Modul
Sub aaTest()
'Hier Code vor Anzeige des Userforms
Call prcCountdown
'hier Code nachdem Countdown runtergezählt hat
MsgBox "Countdown abgelaufen" 'Testzeile
End Sub
Public Function prcCountdown(Optional iCount As Integer = 10)
'anzeige von Userform mit Sekunden-Countdown
Dim datTime As Date
On Error GoTo Fehler
UserForm3.Show False
datTime = Now
With UserForm3
Do
.Label2.Caption = Format(iCount, "0") & " Sekunden"
.Repaint
Do
Loop Until Now - datTime >= 0.95 * TimeSerial(0, 0, 1)
datTime = Now
iCount = iCount - 1
Loop Until iCount

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Countdown oder Timer

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread