Voilą Koen

Code: [Selecteer]

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

Beste wigi (wim)

Heb vorige berichtjes allemaal eens uitgeprobeerd en ze weken allemaal fantastich op eentje na vind ik.
Bij het automatisch aan tijd een rugnummer toevoegen vind ik dat dit in werkelijk niet uitvoerbaar is.
Wanneer twee lopers binnen komen met een verschil van
0,5 sec. of 2 sec. heeft men de tijd niet om deze twee te
reistreren met rugnummer en tijd.
Mijn vraag is nu, kan men in het werblad typen terwijl de tijd loopt, heb dit gedaan maar de tijd stopt dan.
De bedoeling is als ik op tussentijd drukt van twee lopers
die kort op elkaar binnen komen dat ik achteraf de rugnummer op mijn gemak er kan voorzetten terwijl de tijd nog verder loopt.
Zie bijlage (voorbeeld van tijden xls)

Groetjes Danny

Het voorstel van Spyder is goed gevonden. Ik heb het wat aangepast in het bestand Wigi_stopwatch.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean)
If Target.Count = 1 And Not Intersect(Target, Range("H3:H22")) Is Nothing Then
    Target.Offset(0, 2) = Range("C1")
    cancel = True
End If
End Sub

Zet in H3:H20 de rugnummers, in I3:I20 de namen en dan komt in J3:J20 de tijd als je rechts klikt op een rugnummer. Verander de bereiken naar goeddunken.

Wigi

Beste Wigi

Heb code toegevoegd aan bestand ingeven van tijden, maar het werkt niet helemaal.
Kan je eens kijken wat ik fout heb gedaan.
Eerst wil ik de tijd invoegen en dan pas maar de rugnummer ingeven, is dit mogelijk dit toe te passen in mijn bestand.

Groetjes Danny

Danny

een tip: vermijd samengevoegde cellen!!!

Doe dit weg in kolommen G-H en het zal werken.

Wel nog

Target.Offset(0, 2) = Range("J8")

veranderen in

Target.Offset(0, 2) = Range("J4")

Wigi

Hoi Wigi

Het werkt perfect, maar in de loopwedstrijden worden de tijden niet gekoppeld aan de deelnemers, maar juist omgekeerd.
Stel dat deelnemer 650 aankomt en 1 sec. daarna komt deelnemer 1 aan, men heeft dan de tijd niet om naar boven te scrollen en rechtermuisklik te doen, maar wel goed gevonden.

Terwijl de tijd loopt zou ik graag in kolom G vrij willen typen zonder dat de tijd stopt, en de tijd in kolom I plaatst als ik op tussentijd klik.
Dit moet toch mogelijk zijn.
Heb de samengevoegde cellen eruit gedaan zoals gevraagd.
Heb een bijlage meegeleverd zodat U de code erin kan verwerken of U heeft ze me.
Als dit lukt is deze topic voor mij perfect, toch al bedankt voor alle moeite.

Groetjes Danny.