Timer stopt
07.03.2005 13:22:40
Rainer
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
Das funktioniert grundsätzlich gut. 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). Zudem ist es nicht möglich andere Files zu öffnen, während dem der Timer läuft.
Ich wäre euch sehr dankbar wenn Ihr mir weiterhelfen könntet.
Vielen Dank und Gruss
Rainer