Automatisches Schließen Fehler über Mitternacht

Bild

Betrifft: Automatisches Schließen Fehler über Mitternacht
von: Wüstenfuchs
Geschrieben am: 30.11.2015 09:51:43

Liebe Excelfreunde,
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

Bild

Betrifft: AW: Automatisches Schließen Fehler Mitternacht
von: EtoPHG
Geschrieben am: 30.11.2015 11:25:52
Hallo,
Die Verwendung von Time ist falsch, da dies nur die Zeit, nicht aber das Datum beinhaltet.
Wenn du anstelle von Time, Now verwendest, funktioniert es auch über eine Datumsgrenze!
Gruess Hansueli

Bild

Betrifft: AW: Automatisches Schließen Fehler über Mitternacht
von: Thomas Lembcke
Geschrieben am: 30.11.2015 17:56:54
Herzlichen Dank für die schnelle Hilfe,
die Lösung liegt eigentlich auf der Hand - ich kam aber nicht drauf.
Viele Grüße
Wüstenfuchs

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Automatisches Schließen Fehler über Mitternacht "