Gruppe
DatumZeit
Bereich
Zeit
Thema
Startzeit und auf Schaltflächendruck Zwischenzeiten eintragen
Problem
Wie kann ich auf Schaltflächendruck in einer Zelle eine Startzeit eingeben? Auf weiteren Schaltflächendruck sollen die Differenzen der aktuellen Zeit sowohl zu der Startzeit wie auch zu der letzten Zwischenzeit angegeben werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub StartClock()
Range("A2:C" & Rows.Count).ClearContents
Range("A2") = Time
End Sub
Sub PrintClock()
Dim intRow As Integer
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1) = Time
Cells(intRow, 2) = Cells(intRow, 1) - Range("A2")
Cells(intRow, 3) = Cells(intRow, 1) - Cells(intRow - 1, 1)
End Sub