Aplication wait time waarde koppelen aan cell

[getyours]

Hallo

Weet iemand of het mogelijk is om de de waarden die je voor Aplication wait time gebruikt kan koppelen aan cell zodat je de wachttijden kan instellen.

zie hier de code

Sub vertrag()
'
'vertraging
'

'
Range("A2").Select
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime
Range("A18").Select
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Range("B18").Value = ActiveCell.Value

Application.Wait waitTime
Range("A2").Select
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

 

[Wigi]

Wat wil je eigenlijk bereiken, evt. uitleggen in functie van de code die je al gepost hebt.

 

[getyours]

Ik wil graag een simulatie van een PID regeling hebben.

Dit is voor een verslag proces techniek.
De data die in deze regeling variable kan of mag zijn wil ik kunnen instellen.

In dit geval val wil ik de tijd van de regelactie kunnen beinvloeden

 

[etri]

Als je in A1 de waarde "0:00:10" opgeeft en vervolgens

waitTime = Now() + Range("A1").Value

dan wacht je applicatie keurig 10 seconden...

 

[getyours]

Oke we wil gif it a try