Zeitausgabe
15.12.2022 17:45:39
Peter
Könnt ihr mir bitte wieder helfen.
In meiner Tabelle möchte ich die Zeiteangabe bis zur Fahrpause sehen
Ausgangspunkt ist in Spalte A die zeit mit der Modul
Private Sub Workbook_Open()
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Now, "dd.mm.yy - hh:mm:ss")
ET = Now + TimeValue("00:00:03")
Application.OnTime ET, "Zeitmakro"
End Sub
In Spalte H möchte ich die Restzeit bist zum >Eintreten der Fahrpause angezeigt bekommen.
Ist die Zeit bereits erreicht oder überschritten ( also er hat schon Fahrpause ) soll dort " Fahrpause " stehen
Liebe Grüße Peter
Hier die Datei
https://www.herber.de/bbs/user/156757.xlsm