Office: Stoppuhr

Hallo,

vorab ich bin in Sachen VBA noch Anfänger und möchte folgendes erstellen, wer kann mir helfen?

Ich brauche eine Stoppuhr in Excel welche folgendes kann

Im Tabellenblatt 1 habe ich vier Button welchen ich ein Makro zuweisen möchte.

Button "Start" soll beim klicken in Zelle C5 eine Stoppuhr laufen lassen
Minuten:Sekunden:zehntel

Button "Stopp Sieger" soll beim Klicken der aktuelle Zeitwert in Celle B10 eigetragen werden

Button "Stopp Verlierer" soll beim Klicken der aktuelle Zeitwert in Celle D10 eigetragen werden sowie die Stoppuhr stehen bleiben

Button "Reset" soll alles wieder auf ausgangswerte setzen

Danke*rolleyes.gif*

:)

 

Moin!
Zunächst:
"Mein" Windows 10 hat eine eingebaute Stoppuhr (wusste ich bis eben auch noch nicht).
Sie ähnelt der Android- oder iOS-Version wie ein Zwilling.

Die Anzeige der laufenden Zeit in einer Zelle ist schlecht, zumal mit Zehntelsekunden.
Dies würde Excel völlig ausbremsen.
Die "normale" Uhr mittels Application.OnTime Now + TimeValue("00:00:01") kann nur ganze Sekunden.
Da wirst Du schon eine API bemühen müssen
Modul Micro_timer

Gruß Ralf

 

Es gibt in Excel einen Timer. Der heisst sogar genau so. In diesem werden die Sekunden bis auf Hunderstel gespeichert, die seit Mitternacht vergangen sind. Entsprechend sollten dir diese 4 Prozeduren weiterhelfen: Code:

Warum willst du eigentlich einen StopButton für den Sieger und einen StopButton für den zweiten Sieger? Da reicht eigentlich einer. Erst wird die Zeit vom Ersten eingetragen, danach vom Zweiten.

Die Zeit läuft hier mit, wird aber nicht angezeigt. "Dies würde Excel völlig ausbremsen." [Zitat: RPP63neu] Dem ist nichts hinzuzufügen.

 

Du meinst also,eine Bildschirmaktualisierung jede Zehntelsekunde bekommt Excel gut?
Oder habe ich Dich falsch verstanden und Du gibst mir Recht?

Gruß Ralf

 

Hallo dieser Code ist in etwa das was ich brauche
Private msglStart As Single

Sub Start()
msglStart = Timer
Cells(1, 1).Value = "läuft"
End Sub

Sub StopSieger()
Cells(10, 2).Value = (Timer - msglStart) / 86400
Cells(10, 2).NumberFormat = "mm:ss.0;@"
End Sub

Sub StopZweiterSieger()
Cells(10, 4).Value = (Timer - msglStart) / 86400
Cells(10, 4).NumberFormat = "mm:ss.0;@"
Cells(1, 1).Value = "Stop"
End Sub

Sub Reset()
Cells(10, 2).Value = 0
Cells(10, 4).Value = 0
End Sub

nur ebendas die zeit nicht sichtbar läuft Zehntelsekunden sind nicht wichtig falls dass das Problem ist danke

 

Hallo dieser Code ist in etwa das was ich brauche
Private msglStart As Single

Sub Start()
msglStart = Timer
Cells(1, 1).Value = "läuft"
End Sub

Sub StopSieger()
Cells(10, 2).Value = (Timer - msglStart) / 86400
Cells(10, 2).NumberFormat = "mm:ss.0;@"
End Sub

Sub StopZweiterSieger()
Cells(10, 4).Value = (Timer - msglStart) / 86400
Cells(10, 4).NumberFormat = "mm:ss.0;@"
Cells(1, 1).Value = "Stop"
End Sub

Sub Reset()
Cells(10, 2).Value = 0
Cells(10, 4).Value = 0
End Sub

nur ebendas die zeit nicht sichtbar läuft Zehntelsekunden sind nicht wichtig falls dass das Problem ist danke

 

Hier mal eine Demo mit einem Timer, fast nach Deinen Vorgaben aus dem Ausgangsposting, aber eben nur Sekunden.
Das Ding hat natürlich "Macken"! Wenn Du z.B. in den Edit-Mode gehst, wird die Stoppuhr solange nicht weiterlaufen. Wenn Du ein zweites Mal Start Watch klickst, während sie läuft, wird es krachen. Ich hatte keine Lust, das abzufangen *mrcool
Und das auf Zehntel anzupassen, überlass ich Dir. Dazu hatte ich auch keine Lust.