Ich hab mal wieder eine Frage für Euch Profis.
- Ist es möglich, wenn der PC in den Ruhemodus (oder Powersavemodi)
einen Eintrag in eine Tabelle machen zu lassen?
Hintergrund:
Da ich seit neuem immer öfter HomeOffice tätige, und immer wieder gestört werde (☺ Kids), passiert es mir häufig, dass ich vergessen habe wenn ich aufgehört habe zu arbeiten (kennt der Eine oder Andere sicherlich).
Ich habe mir eine kleine Datei geschrieben (nix tolles, aber reicht) in der ich manuell die Zeit Ein.- bzw. Austrage. Aber es wäre einfacher, wenn es eine Möglichkeit gäbe, eine kleine Automation mit einzubauen.
Ich hoffe ihr habt mal wieder geniale Ideen.
Im Voraus vielen lieben Dank.
Gruß Jay
Der Code:
Sub ZeitEintragen()
' Zeile nach unten verschieben und Format übertragen
If Cells(4, 3) = "" Then Exit Sub
Range(Cells(4, 1), Cells(4, 6)).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range(Cells(4, 1), Cells(4, 6)).ClearContents
Cells(4, 1) = Format(Date, "dd.mm.yyyy")
Cells(4, 2) = Format(Time, "hh:mm:ss")
Range("B4").Select
ActiveWorkbook.Save
End Sub
Sub ZeitAustragen()
' Endzeit in Spalte C eintragen
Dim LZL As Long
Dim i As Long
Sheets("Zeiterfassung").Activate
' LZL = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Cells(4, 3) = Format(Time, "hh:mm:ss")
' Dauer berechnen und in Spalte D eintragen
Cells(4, 4).Select
Selection.NumberFormat = "hh:mm:ss;@"
Cells(4, 4) = Cells(4, 3) - Cells(4, 2)
Cells(4, 1).Select
ZeitGesamt
ActiveWorkbook.Save
End Sub