Eingabe während Timer läuft
25.02.2005 16:00:24
Marcel
Ich habe vor einiger Zeit vom Forum folgenden Code erhalten, um einen Timer zu aktivieren, der nach der abgelaufenen Zeit das File automatisch schliesst.
Sub timer()
Dim ende As Date
ende = Now + TimeSerial(0, 1, 0)
Do
DoEvents
If ende < Now Then Exit Do
Sheets("Company A").Range("o2") = Format(ende - Now, "hh:mm:ss")
Loop
ThisWorkbook.Close True
End Sub
Grundsätzlich funktioniert das. Wenn nun jedoch jemand während dem der Timer läuft, eine Eingabe machen will, wird der Timer unterbrochen. Es müsste doch eine Möglichkeit geben, dass der Timer im Hintergrund weiter läuft, jedoch durch den Benutzer Eingaben gemacht werden können, bis dann das File sich nach der abgelaufenen Zeit automatisch selber schliesst (und natürlich alle neuen Eingaben mit abspeichert).
Kann mir da bitte jemand helfen?
Vielen Dank
Marcel
Anzeige