een teller of timer in een macro

[getyours]

Ik ben nu een paar dagen aan het zoeken naar het volgende

Als ik waarde in cel "A" verander en vervolgens een macro start dan zorgt het macro er voor dat de waarde in cel "B" in x-seconden veranderd. Als waarde "B" veranderd is veranderd vervolgens de waarde in cel "C". Nu wil ik dat de waarde in cel B niet in een keer verspringt naar de juiste waarde maar in stapjes naar de juiste waarde verspringt.

Voorbeeld;

In cel a waarde 20 dan in x seconden waarde cel b in stapjes naar 7,2 en vervolgens het zelfde voor cel c. De stappen moeten elke seconde of tijdseenheid weggeschreven worden
naar een rij andere cellen. Met als doel een grafiek.

 

[getyours]

Oke met wat hulp en boeken bespeuren ben ik een eind gekomen.

De eerste code start een macro als de waarde in 'A1' veranderd in dit geval waarde is 5.
De tweede code werkt een reeks van getallen af die opgegeven zijn in 'H1' t/m deze een lege cel tegen komt. De vertraging kan in seconden opgegeven worden in 'M1'.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Worksheet_Change

    ' Target = de cel waarvan de inhoud zojuist is veranderd.
    
    Select Case Range("A1").Value
    Case Is = 5
        Call Macro2 ' Opstarten van macro "Macro2" in Module1.
    Case Else
        ' doe niets
    End Select

Exit_Worksheet_Change:
    Exit Sub
    
Err_Worksheet_Change:
    Resume Exit_Worksheet_Change
    
End Sub

Sub Macro2()

Dim lngTimerStart As Long

'
'macro 2
'

Range("H1").Select
While Not IsEmpty(ActiveCell.Value)
    Range("A1").Value = ActiveCell.Value
    lngTimerStart = Timer
    Do Until Timer >= lngTimerStart + Range("M1").Value
        ' DoEvents
    Loop
    
    
'    For i = 1 To 10000000
'    Next
    
    ActiveCell.Offset(1, 0).Select
    Wend

Ik zit nu nog met een probleem want ik wil dat er automatisch geteld wordt naar de waarde die ik in H1 opgeef zodat ik niet meer met die reeksen hoeft te werken.

Voorbeeld de waarde die ik in H1 opgeeft stel 10 die moet in stappen van bv 1 verschijnen in A1. Dus "H1" =10 ----> A1 = 1,2,3,4,......10

Misschien dat iemand hier wat op weet
Ook hier moet de vertraginging maar ook de stappen instelbaar zijn.