Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Vorgang nach einem Countdown starten |
21.12.2016 13:44:22 |
LindaK |
|
|
|
21.12.2016 14:46:24 |
SJ |
|
|
|
21.12.2016 16:30:08 |
LindaK |
|
|
|
21.12.2016 23:22:29 |
LindaK |
|
|
Von:
LindaK |
Datum:
21.12.2016 13:44:22 |
Views:
1111 |
Rating:
|
Antwort:
|
Thema:
Vorgang nach einem Countdown starten |
Hallo zusammen,
ich versuche gerade einen Countdown zu programmieren in VBA. Dieser soll in einer TextBox in einer Arbeitsmappe angezeigt werden. Die Idee ist, das beim betätigen eines Buttons ein Countdown erscheint von 5:00 min und dann entsprechend runtergezählt wird. Wenn der Countdown Null erreicht, soll ein Userform angezeigt werden.
Mein VBA Project besteht zurzeit aus einer Tabelle1 (Code) und einem Modul1 (Code).
Tabelle1:
Private Sub CommandButton1_Click()
SpuelungStarten
End Sub
Modul1:
Sub SpuelungStarten()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub
Sub nexttick()
Dim countdown As Date
countdown = TimeValue("00:05:00")
If countdown = 0 Then Exit Sub
countdown = countdown - TimeValue("00:00:01")
Tabelle1.TextBox1.Text = countdown
If countdown = 0 Then
UserForm1.Show
End If
SpuelungStarten
End Sub
Nach diesem Code wird die TextBox gefüllt und zeigt 00:04:59 an. Der Countdown läuft zwar im Hintergrund weiter, wird aber nicht angezeigt in der TextBox.
Kann mir jemand weiterhelfen?
Freue mich auf Rückmeldung
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Vorgang nach einem Countdown starten |
21.12.2016 13:44:22 |
LindaK |
|
|
|
21.12.2016 14:46:24 |
SJ |
|
|
|
21.12.2016 16:30:08 |
LindaK |
|
|
|
21.12.2016 23:22:29 |
LindaK |
|
|