Timeranzeige
01.03.2020 14:40:59
Jubel
ich würde gerne einen Timer auf die Oberfläche einer UserForm bringen (d.h. ein Label, dass die Sekunden zählt), leider gelingt mir dies bisher noch nicht so recht.
Ich wollte es mit "Application.OnTime" lösen. Mein Code sieht derzeit wie folgt aus:
Private Sub CommandButton1_Click()
Call Timer
End Sub
Private Sub Timer()
Zeitzähler = Zeitzähler + 1
LabelTimer.Caption = Zeitzähler
MsgBox ("Test")
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub
"Zeitzähler" ist meine Integer-Variable, die ich je Sekunde um eins hochzählen und dann auch das Label bestücken soll. Den Button möchte ich als Start-Button für den Timerzähler nutzen. Leider gelingt der "Selbstaufruf" der Sub "Timer" nicht (ich dachte, ich könnte den Selbstaufruf mit Application.OnTime lösen), daher wird sie immer nur einmal ausgelöst, wenn ich den Button klicke. Was mache ich falsch? Bzw. gibt es eine einfachere/bessere Variante, um einen Timer auf einer Oberfläche zu haben?