Stoppuhr "Laufzeitfehler 1004" ratlos
31.08.2015 16:16:51
Christian
ich wollte mir eine ganz einfache " Stoppuhr" erstellen, deren Sinn darin besteht , in 4 ausgewiesenen Feldern, jede Minute den Wert um 1 zu erhöhen. Das Funktioniert auch gut, nur wenn ich "Stoppen" möchte, wird mir ein Laufzeitfehler1004 anzeigt mit folgender Meldung; Fehler der Methode "ontime" des Objekts "Application".
Dies finde ich merkwürdig, da das stoppen anfangs funktioniert hat, aber nun mir immer wieder diese Meldung erscheint.
folgendes habe ich umgesetzt:
Sub startTimer()
Application.OnTime Now + TimeValue("00:01:00"), "Increment_count"
End Sub
Sub Increment_count()
Range("D2").Value = Range("D2") + 1
Range("H2").Value = Range("H2") + 1
Range("D14").Value = Range("D14") + 1
Range("H14").Value = Range("H14") + 1
startTimer
End Sub
Sub stopTimer()
Application.OnTime Now + TimeValue("00:01:00"), "Increment_count", Schedule:=False
End Sub
Anzeige