VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Startzeit und auf Schaltflächendruck Zwischenzeiten eintragen

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

    


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