Counter in excel

[Dennis FES]

Ha allen,

Ik ben bezig met een programma wat een aantal werkzaamheden simuleerd, ik ben hiervoor een macro aan het schrijven.

Doel van mijn programma is dat ik verschillende timers wil laten lopen die werkzaamheden in een productieproces moeten voorstellen. Van te voren is bepaald hoeveeltijd een werkzaamheid inneemt en zo lang moet de timer gaan lopen.

Ik heb hiervoor o.a. op dit forum onderstaand VB-script gevonden:

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").Number*Format = "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

Nu word in dit programma de loopduur van de timer bepaald met:
EndTime = Now + TimeValue("00:00:15")

Nu wil ik dat deze EndTime uit een Cel gehaald wordt dus:
EndTime = Now + B2

En met mijn Macro komen in B2 steeds nieuwe waarden te staan zodra de Timer op 0 uitgekomen is.
Probleem is dat bovenstaande wens (Now + B2) nog niet wil werken....

Wie kan me opweg helpen hiermee?

Vriendelijke groet,
Dennis Varkevisser

 

[Roncancio]

Bedoel je het zo?

EndTime = Now + Range("B2").Value

Met vriendelijke groet,


Roncancio

 

[Dennis FES]

Ha Roncancio,

Precies zoals ik bedoelde!!
Hartelijk dank ik ben weer een stapje verder.

Vriendelijke groet,
Dennis Varkevisser

 

[Wigi]

Dennis

Op dit forum is het gebruikelijk om de vraag als opgelost te zetten als die ook daadwerkelijk naar wens is opgelost. Dit doe je door rechts onderaan op deze pagina de status van de vraag te veranderen.

Graag in het vervolg wel code tags rondom je code plaatsen. Dit doe je door op het # icoontje te klikken en dan de code vanuit VBA te plakken tussen de tags.

Wigi