AW: Ablauf nach je 1 min
30.03.2022 16:10:28
Ronald
Vielen Dank Für den Vorschlag. Ich bin gerade am Ausprobieren.
Jedoch soll bei mir die bisherige Dauer noch im Minutentakt hochzählen.
Option Explicit
Dim strStartZeit As String
Dim strStopZeit As String
Dim dteStartZeit As Date
Dim dteAktuelleZeit As Date
Dim dteStopZeit As Date
Dim dteResultat As Date
Dim strOptZeit As String
Dim NextInst As Date
Private Sub StartLogging()
cmdStop.BackColor = &HC0C0FF 'hellrot
cmdStop.Enabled = True
cmdStart.BackColor = &H8000000F 'grau
cmdStart.Enabled = False
strStartZeit = CStr(Format(Time, "hh:mm"))
dteStartZeit = Format(Time, "hh:mm")
labZeit.Caption = "Läuft seit: " & Format(Time, "hh:mm")
Call LogginZeitBerechnen
End Sub
Private Sub LogginZeitBerechnen()
dteAktuelleZeit = Format(Time, "hh:mm")
strStopZeit = CStr(Format(Time, "hh:mm"))
dteStopZeit = Format(Time, "hh:mm")
dteResultat = dteStopZeit - dteStartZeit
labZeit.Caption = CStr(dteStartZeit) & " - " & Format(Time, "hh:mm") & " Uhr - bisherige Dauer: " & dteAktuelleZeit - dteStartZeit
NextInst = Now + TimeValue("00:01:00")
Application.OnTime NextInst, "LogginZeitBerechnen"
End Sub
Private Sub StopLogging()
cmdStart.BackColor = &HC0FFC0 'hellgrün
cmdStart.Enabled = True
cmdStop.BackColor = &H8000000F 'grau
cmdStop.Enabled = False
strStopZeit = CStr(Format(Time, "hh:mm"))
dteStopZeit = Format(Time, "hh:mm")
dteResultat = dteStopZeit - dteStartZeit
labZeit.Caption = CStr(dteStartZeit) & " - " & Format(Time, "hh:mm") & " Uhr - benötigte Dauer: " & CStr(dteResultat)
Application.OnTime NextInst, "LogginZeitBerechnen", , False
End Sub
Beim Ausführen zeigt er als bisherige Dauer 0 an, was ja primär nicht falsch ist. Es ist ja noch keine Minute vergangen, sodaß keine brauchbare Rechnung erfolgen kann. Nach einer Minute blinkt das minimierte Excel in der Taskleiste orange.
Es kommt als erste Meldung "Das Makro blabla bla kann nicht ausgeführt werden. Das Makro ist in dieser Arbeitsmappe nicht verfügbare oder alle Makros wurden deaktiviert". Wenn ich diese Meldung per OK bestätige, ist die Meldung weg. Mehr passiert nicht. Wenn ich dann das Ganze per Stop-Button beende (Private Sub StopLogging() wird ausgeführt), dann kommt als zweites die Meldung "Laufzeitfehler 1004 - Die Methode "OnTime" für das Objekt "_Application" ist fehlgeschlagen". Wenn ich dies debugge, komme ich auf
Application.OnTime NextInst, "LogginZeitBerechnen", , False
Eins weiß ich. Irgendetwas ist mit dem Timer-Code-Snippet nicht gut. Am Makro selber liegt es nicht. Damit meine ich, daß keine Makros deaktiviert etc. wurden. Kann ich mir beim besten Willen nicht vorstellen.
Auf jeden Fall wäre ich froh, wenn jemand eine Idee hätte, wie ich das hier lösen kann. Eventuell eine andere Timer-Prozedur.
Danke im Voraus.
Gruß Ronald