Stopwatch/timer in Excelblad

Mertens

unread,

Feb 19, 2004, 2:35:07 AM2/19/04

to

Hoe kan ik een stopwatch/timer in een cel zetten? Liefst
aflopend i.v.m. sportwedstrijden. Of is er ergens een
sjabloon van?

Bij voorbaat dank.

FM

Ingrid Baplue

unread,

Feb 19, 2004, 4:54:06 AM2/19/04

to

Hier staat een voorbeeldje:
http://users.pandora.be/ingrid/excel/vbn.htm

--
Ingrid Baplue
Microsoft MVP - Excel
http://users.pandora.be/ingrid/excel/

Dit bericht is geplaatst in een nieuwsgroep. Post je evt antwoord of
vervolgvraag graag in de nieuwsgroep a.u.b.

Mertens schreef in news:12cff01c3f6ba$e5bd1530$a401...@phx.gbl

Mertens

unread,

Feb 19, 2004, 5:09:23 AM2/19/04

to

>.
>Hartelijk dank voor je reactie. Ik zag alleen dat ik met
dit bestand niet kan bewerken en knippen en plakken. Ik
zoek eigenlijk voor een scorebord een mogelijkheid om in
een enkele cel een downtimer te maken. Maar als ik dat
niet hier uit kan halen is dat waarschijnlijk gewoon
onkunde van mij...

FM

Pierre

unread,

Feb 19, 2004, 10:38:35 AM2/19/04

to

zie hier een site waar je het kunt downloaden :
http://www.tushar-mehta.com/index.html?http://www.tushar-
mehta.com/excel/software/countdown/

klik op : The compressed files
countdown.xla

Pierre

unread,

Feb 19, 2004, 5:10:15 PM2/19/04

to

of

Public NextTime As Date
Public EndTime As Date
Sub StartCount()
EndTime = Now + TimeValue("00:00:15")
NextTime = Now + TimeValue("00:00:01")
ActiveSheet.Range("A1").NumberFormat = "hh:mm:ss"
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub

Sub Continuecount()
NextTime = Now + TimeValue("00:00:01")
If EndTime - Now < 0 Then Exit Sub
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub

Hier kun je de tijd voor af te tellen zelf instellen,
nu staat het op 15 sec in gesteld.

Pierre

Mertens

unread,

Feb 19, 2004, 5:14:28 PM2/19/04

to

>.
> Pierre, ziet er goed uit. Zeer bedankt!

FM

Mertens

unread,

Feb 19, 2004, 5:35:27 PM2/19/04

to

>.
>Weer bedankt. Ben echter niet zo thuis in de VB editor,
dus kweenie wat hier mee te doen. Kwestie van knippen en
plakken of ligt het toch iets gecompliceerder???

FM

Pierre

unread,

Feb 20, 2004, 3:50:15 AM2/20/04

to

Voor de invoegtoepassing :
Daarvoor moet je het opslaan als *.XLA (opslaan als - allerlaatste keuze)
Daardoor wordt het een invoegtoepassing.
Vervolgens "Extra-invoegtoepassingen" aanklikken. In de dan getoonde lijst
zul je dan deze XLA terugvinden; deze gewoon aanvinken en uw functies zijn
dan op dezelfde manier beschikbaar als de ingebouwde functies.

Voor de code in te brengen :
De code wordt handmatig in een module geplakt in de Visual Basic Editor.
Kopieer daarvoor zijn tekst, toets in het werkblad Alt+F11, dan in het
linkerdeel van het scherm rechtsklikken op de naam van je werkboek,
Invoegen>module, daar je cursor plaatsen en Ctrl+V om te plakken.

Pierre

Mertens

unread,

Feb 20, 2004, 4:12:33 PM2/20/04

to

>.
>Pierre, jij komt er wel. Heel hartelijk dank hoor voor
al je moeite!

FM