Uhrzeit automatisch eintragen und "vorterminieren"
NeptunesChild
ich habe eine Zeiterfassungsdatei so eingerichtet, dass beim Öffnen der Datei die aktuelle Rechnerzeit automatisch eingetragen wird. Der tatsächliche Beginn liegt aber bereits 5 min in der Vergangenheit. Daher möchte ich diese 5 min beim eintragen bereits abziehen. Aber wie...?
Vielen Dank für die Hilfe:
Private Sub Workbook_Open()
Sheets(Month(Date) + 1).Activate
ActiveSheet.Cells(WorksheetFunction.Match(CDbl(Date), _
ActiveSheet.Range("B:B"), 0), 9) = Format(Now, "hh:mm")
ActiveWorkbook.Save
End Sub
Anzeige