Thema: Startzeit und auf Schaltflächendruck Zwischenzeiten eintragen

Home

Gruppe

DatumZeit

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

Datum + Uhrzeit aus Textbox richtig in Zelle	Laufzeit ermitteln
Laufzeitfehler 438	Laufzeitfehler '13'
Akt. Datum und Uhrzeit am gedruckten Dokument	VBA: UF Laufzeitfehler
SVERWEIS mit wahr via Zeit hh:mm bzw. hh:mm:ss	4 gleiche Gruppen aus 40 Zeiten/Läufern
Wandlung Connectstring für Uhrzeit	Laufzeitfehler 1004: Anwendungs- oder objektorient
Laufzeitfehler 104 automatisches Starten von Makro	Blatt als pdf mit Datum Uhrzeit
XLTM wird von ca. 200 Pers. gleichzeitig geöffnet	Auswertung_Uhrzeiten_Schichtplan
Hilfe Laufzeitfehler wegen benutzerdef. Ansicht	gleichzeitiges Ausfüllen mehrerer Zellen
Pastespecial-Methode - Laufzeitfehler 1004	Fehler Formel Zeitberechnung
Zeiten (diff. in Monaten) berechnen	Zeiterfassung
mehrere TXT Datein gleichzeitig importieren	Zahlen in Form von Uhrzeit darstellen
Lange Laderzeit XLS Dokument	Format Datum / Uhrzeit
Zeitermittlung zwischen zwei Datumsfeldern	MSGBox Zeitraum filtern
Zeitnachweis erstellen	Zeitachse normieren
Datengröße evtl Makro Zeitberechnung	Laufzeitfehler beim sortieren
Code in mehreren Tabellen gleichzeitig ausführen	@ Tino (in Zeitraum Suchen)
In einem Zeitraum per VBA suchen	Zeitberechnung
Laufzeitfehler 9 bei Makroaufzeichnung	Uhrzeit automatisch eintragen
Laufzeitberechnungsformel	Extremwert eines Zeitraumes ermitteln
Funktion Dezimal -> Zeit/ Variablen-Deklaration	Zeitlich gesteuerte Abrufintervalle
Uhrzeit teilen und Ergebnis in Zahl ausgeben	Laufzeitfehler 1004 bei Selection.Offset
Laufzeitfehler 2147417878	Klassen/Objekte zur Laufzeit entladen
Dateneingabe mit Datum+Uhrzeit vervollständigen	VBA Zeitmessen
seltsame Zeitformate	Daten auslesen/Zeit unterschiedliche Länge
Zeitstrahl _ Diagramm	Uhrzeitangabe auswerten (Zeitspanne)