Automatisches Schließen Fehler über Mitternacht
30.11.2015 09:51:43
Wüstenfuchs
ich benötige Hilfe bei einem Problem. Mit dem folgenden Code löse ich nach einer festgelegten Zeit das Schließen der Arbeitsmappe aus:
On Error Resume Next
neuezeit = Time + TimeSerial(0, Cells(150, 3).Value, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
und einem extra Makro
Sub Schließen()
ThisWorkbook.Close savechanges:=True
End Sub
Es funktioniert problemlos bis auf den Zeitraum, wenn zwischen Startzeit und Endzeit 0:00 Uhr liegt. Dann wird die Datei sofort ohne Wartezeit geschlossen.
Wo kann ich dieses Problem abfangen und auch in diesem Zeitraum eine ordnungsgemäßes Schließen erst nach der eingestellten Wartezeit erreichen?
Mit bestem Dank im Voraus!
Wüstenfuchs
Anzeige