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