Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Startzeit und auf Schaltflächendruck Zwischenzeiten eintragen

Gruppe

Zeit

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

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Zeit