Opgelost Waarde per seconde met 50 aftellen.

[Thierry61]

Beste,
"A1" = 100000, "B1"= 50
Hoe kan ik de waarde in "A1" per seconde laten zakken met de waarde in "B1".
Een soort van aftelklok maar dan niet met tijdseenheid maar met een getal dus.
Alvast bedankt

 

[edmoor]

Met een Timer:

Application.OnTime method (Excel)

Office VBA reference topic

learn.microsoft.com

 

[emields]

zo bv.

 

[edmoor]

Een timer moet ook gestopt kunnen worden:

 

[Verwijderd lid 501906]

Ik kan helaas vandaag geen voorbeeld plaatsen
en zal het zo moeten doen.
Wijs de VBA's toe aan start en een stop knop

Is dit wat je zoekt ?

Dim StopLoop As Boolean

Sub StartCountdown()
    Dim min, max, decrementValue As Double
    
    StopLoop = False
    Application.OnKey "^w", "StopCountdown" ' Bind de ESC-toets aan StopCountdown
    Set targetCell = Range("A1")
    decrementValue = Range("B1").Value
    
    Do While targetCell.Value > 0 And Not StopLoop
        Application.Wait Now + TimeValue("00:00:01")
        targetCell.Value = targetCell.Value - decrementValue
        DoEvents ' Sta toe dat andere gebeurtenissen worden uitgevoerd
    Loop
    
    Application.OnKey "^w" ' Reset de ESC-toets binding
End Sub

Sub StopCountdown()
    StopLoop = True
End Sub

 

[Thierry61]

Werkt perfect.
Hartelijk bedank aan iedereen.