Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Option Explicit
Public timing As Double
Public running As Boolean
Private Sub CommandButton1_Click()
'start timer
Range("A1") = "Tijden"
timing = Timer
running = True
Do While running
Range("B1") = Format(Timer - timing, "0.00") & " seconden"
DoEvents
Loop
End Sub
Private Sub CommandButton2_Click()
'stop timer
running = False
Range("A1").End(xlDown).Select
End Sub
Private Sub CommandButton3_Click()
'zet tussentijd weg
If timing = 0 Then timing = Timer
Range("A65536").End(xlUp).Offset(1, 0) = Range("B1")
End Sub
Private Sub CommandButton4_Click()
End Sub
@keesdh
But if you have found a solution please let me know.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.