Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Stoppuhr

Forumthread: Stoppuhr

Stoppuhr
17.06.2008 13:42:49
Stephan
Hallo zusammen,
ich habe folgendes Problem:
mit unten aufgeführtem Code lasse ich eine Stoppuhr laufen. Wie müsste der Code unter "Sub StopAnzeige1()" aussehen, wenn nach einer bestimmten Zeitspanne (z. B. 2 Std.) die Uhr _
automatisch anhalten soll? Müsste ich da mit "Application.OnTime Now + TimeValue= ("02:00:00"), Exit Sub" arbeiten?
Vielen Dank im Voraus! Gruß, Stephan

Sub Uhrzeit1()
ThisWorkbook.Sheets("Tabelle1").Range("D4") = Format(Time - Zeit, "hh:mm:ss")
EZE = Now + TimeValue("00:00:01")
Application.OnTime EZE, "Uhrzeit1"
ThisWorkbook.Sheets("Tabelle1").Range("C7") = ThisWorkbook.Sheets("Tabelle1").Range("C7") +  _
TimeValue("00:00:01")
End Sub




Sub StopAnzeige1()
On Error Resume Next
Application.OnTime EarliestTime:=EZE, Procedure:="Uhrzeit1", Schedule:=False
ThisWorkbook.Sheets("Tabelle1").Range("D7") = ThisWorkbook.Sheets("Tabelle1").Range("D7") +  _
1
End Sub


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Stoppuhr
17.06.2008 20:11:57
fcs
Hallo Stephan,
dazu muss du die Startzeit in einer Variablen oder Tabellenblattzelle speichern und die Stoppuhr mit einer separaten Pozedur starten. Der Vergleich mit der aktuellen Zeit muss in der Prozedur Uhrzeit1 gemacht werden, bevor der Timer erneut aufgerufen wird.
Gruß
Franz

Public datStart As Date
Sub StartClock()
datStart = Now
Call Uhrzeit1
End Sub
Sub Uhrzeit1()
ThisWorkbook.Sheets("Tabelle1").Range("D4") = Format(Time - Zeit, "hh:mm:ss")
EZE = Now + TimeValue("00:00:01")
If EZE - Start > TimeValue("02:00:00") Then Exit Sub
Application.OnTime EZE, "Uhrzeit1"
ThisWorkbook.Sheets("Tabelle1").Range("C7") = ThisWorkbook.Sheets("Tabelle1").Range("C7") +  _
_
TimeValue("00:00:01")
End Sub


Anzeige
AW: Stoppuhr
18.06.2008 08:46:00
Stephan
Hallo Franz,
vielen Dank für Deine Antwort! Genau so sollte es sein!! Du hast mir sehr geholfen. Vielen Dank nochmals!
Grüße, Stephan
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige