Countdown pauzeren

[Morsyd]

Hallo
ik heb met behulp van code die ik reeds vond op dit forum een countdown gemaakt.
Maar ik heb er nog 2 vraagjes bij:
- hoe kan ik de countdown pauzeren en later weer laten doorlopen zonder dat er iets van de tijd weg is?
- wanneer ik meer dan 60 seconden heb toont hij dit als 00... terwijl ik bv bij 1min10s het als 70 zou laten weergeven

Dit is de code die ik tot nu toe heb:

Option Explicit

Public NextTime As Date
Public EndTime As Date
Sub StartCount()
EndTime = Now + TimeValue("00:01:00")
NextTime = Now + TimeValue("00:00:00")
ActiveSheet.Range("A1").NumberFormat = "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 Cel 'Exit Sub
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub
Sub Cel()
    If Range("A1").Value = 0 Then
    Sheets("Blad2").Select
    End If
    End
End Sub

Sub Bijtellen()
EndTime = EndTime + TimeValue("00:00:10")
End Sub

Iemand enig idee?
dank alvast!

 

[DCWDPT]

meer dan 60 sec.

Als je bijv. 1 min 10 sec wilt tonen als 70 sec, moet je in de onderstaande code om de opmaak (ss) vierkante haken zetten, dus ([ss]).

ActiveSheet.Range("A1").NumberFormat = "[COLOR="Red"][ss][/COLOR]"

 

[Morsyd]

Als je bijv. 1 min 10 sec wilt tonen als 70 sec, moet je in de onderstaande code om de opmaak (ss) vierkante haken zetten, dus ([ss]).

ActiveSheet.Range("A1").NumberFormat = "[COLOR="Red"][ss][/COLOR]"

thx! nu nog weten hoe te kunnen pauzeren en herstarten en ik ben een gelukkig man

 

[snb]

wijzig de celopmaak.: [mm]

 

[DCWDPT]

stoeien met 'wait'

Ik ga eens wat stoeien met 'application.wait'. Kijken of het wat oplevert.
Je hoort nog.

 

[Morsyd]

Ik ga eens wat stoeien met 'application.wait'. Kijken of het wat oplevert.
Je hoort nog.

en, al enig resultaat?