Graag zou ik een site willen vinden waar ik een clock met stopwatch kan vinden, zodanig als ik telkens op de ENTER toets druk, dat hij mij de tijd geeft tot op 0,01 sec in een cel en in de cel daaronder enz...

OF hebben jullie hiervoor een code die ik in een module kan kopiėren.

Groetjes Danny.

Ik heb de bijhorende bijlage voor jou gemaakt. Neem gerust een kijkje en ook in de VBA code. Niet moeilijk.

Wigi

Beste Wigi

De start en stopknoppen zijn perfect alsook de tijd in A1, maar als ik de tweede keer klik op de stopknop zou ik zowel de 1 ste tijd moeten zien en ook de 2 de tijd enz in cel A2, A3 enz...
Is het ook mogelijk de tijd zichtbaar te maken op het scherm ?

Groetjes Danny.

Danny

gebruik dit:

Private Sub CommandButton1_Click()
  timing = Timer
  Range("B1").Value = True
  Do While Range("B1")
    Range("C1") = Format(Timer - timing, "0.00") & " seconden"
    DoEvents
Loop
End Sub

Private Sub CommandButton2_Click()
  Range("A1") = "Tijden"
  Range("B1") = Not Range("B1")
  If timing < 0 Then timing = timing + 1440
  Range("A65536").End(xlUp).Offset(1, 0) = Range("C1")
  Range("C1").ClearContents
End Sub

Wigi

Beste Wigi

ik denk dat ik een foutje heb gemaakt, heb bestand hier bijgevoegd.
Kan je eens kijken wat ik fout heb gedaan ?
De bedoeling is, als ik op start duw en ik duw daarna op stop dat de tijd wordt weergegeven in cel A1
Als ik terug op stop duw dat ik dan de tweede tijd krijg in cel A2 enz... Bv. A1 = 0 uur 15 min 12 sec  1/100 sec.
                          A2 = 0 uur 15 min 13 sec  1/100 sec.
Als ik duw dat krijg ik in cel A2 terug een tijd dien opnieuw is gelopen vanaf nul.

Groetjes Danny.

Heb het gefixt. Ik heb ook overbodige code op andere plaatsen gedeleted. Als je in het vervolg niet goed weet waar een bepaald stukje code moet komen, vraag het dan, beter dan onnodige grote bestanden te hebben. Kan ook tot rare situaties leiden soms.

Wigi

Heb het gefixt. Ik heb ook overbodige code op andere plaatsen gedeleted. Als je in het vervolg niet goed weet waar een bepaald stukje code moet komen, vraag het dan, beter dan onnodige grote bestanden te hebben. Kan ook tot rare situaties leiden soms.

Wigi

Bedankt Wigi voor dit voorbeeld.

Dit is wat ik zocht en zal zeker van pas komen.

Groetjes Danny.

Dag Koen

doe het volgende met het bestand dat laatst bijgevoegd werd in deze vraag:

1. Wis alle cellen uit dat bestand, behalve de knoppen.

2. Vervang de code door deze code:

Option Explicit
Public timing As Double
Public running As Boolean

'code opgesteld door Wim Gielis, juli 2006
'www.oplossing.be/index.php?board=79

Private Sub CommandButton1_Click()
    'start timer
    Range("A1") = "Rugnummer"
    Range("B1") = "Tijden"
    timing = Timer
    running = True
    Do While running
        Range("C1") = Format(Timer - timing, "0.00") & " seconden"
        DoEvents
    Loop
End Sub

Private Sub CommandButton2_Click()
    'stop timer
    running = False
    Range("B1").End(xlDown).Select
End Sub

Private Sub CommandButton3_Click()
    'zet tussentijd weg
    Dim ans As Long
    If timing < 0 Then timing = timing + 1440
    ans = InputBox("Geef het wedstrijdnummer in.", "Tijd wegschrijven")
    Range("A65536").End(xlUp).Offset(1, 0) = ans
    Range("B65536").End(xlUp).Offset(1, 0) = Range("C1")
End Sub
Lukt het?

Wigi

PS: mag ik een gokje wagen  :) is je naam Koen Van Rie?

Voilą Koen

Option Explicit
Public timing As Double
Public running As Boolean

'code opgesteld door Wim Gielis, augustus 2006
'www.oplossing.be/index.php?board=79

Private Sub CommandButton1_Click()
    'start stopwatch
    Dim tijd As String
    Range("A1") = "Rugnummer"
    Range("B1") = "Tijden"
    timing = Timer
    running = True
    Do While running
        tijd = ""
        tijd = tijd & Format(Int((Timer - timing) / 3600), "00") & ":"
        tijd = tijd & Format(Int(((Timer - timing) - Int((Timer - timing) / 3600) * 3600) / 60), "00") & ":"
        tijd = tijd & Format((Timer - timing) - 3600 * Int((Timer - timing) / 3600) - _
                60 * Int(((Timer - timing) - Int((Timer - timing) / 3600) * 3600) / 60), "00.00")
        Range("C1") = tijd
        DoEvents
    Loop
End Sub

Private Sub CommandButton2_Click()
    'stop timer
    running = False
    Range("C1").Select
End Sub

Private Sub CommandButton3_Click()
    'zet tussentijd weg
    Dim ans As Long
    If timing < 0 Then timing = timing + 1440
    On Error Resume Next
    ans = InputBox("Geef het wedstrijdnummer in.", "Tijd wegschrijven")
    Range("A65536").End(xlUp).Offset(1, 0) = ans
    Range("B65536").End(xlUp).Offset(1, 0) = Range("C1")
End Sub
Wigi

Hoi Danny,

Ik wil je niet op een verkeerd brengen (of je hele opzet laten omgooien), maar een tijdje geleden heb ik iets dergelijks moeten maken voor een collega, en heb dit opgelost door met rechts te klikken in een cel naast de naam van de deelnemer (Er zit natuurlijk wel een beetje VBA code achter). Hierdoor werd de huidige tijd geregistreerd in de cel.
Met deze tijden kan je dan vrij makkelijk werken om tussentijden, eindtijden en rangschikkingen te berekenen (volgens mij).

Rechtsklik eerst in de kolom "Vertrek" vooraleer je ergens anders klikt.

Bekijk het eens, en gebruik het naar eigen goeddunken.

groetjes

PS.Het ziet er wel niet "af" uit, maar ik heb het een beetje moeten strippen omdat de regels van deze club anders waren dan je normaal zou verwachten.