Automatisch door laten lopen stappen VBA excell

[andrevanderhors]

Hallo

Graag zou ik deze stappen met een bepaalde tijdvertraging wilen laten door lopen.
Dus een start iedere stap x seconden tot stap 7.

Heb al een hoop verschillende dingen geprobeerd maar kom er zelf niet uit.

Kan iemand me een zetje in de juiste richting geven?


CODE:

Sub Volgende_stap()
Dim stapnummer As Integer

stapnummer = Range("N1").Value + 1

If Range("N1").Value >= 7 Then
stapnummer = 1
End If

Range("Loterij!N1").Value = stapnummer

If Range("N1").Value = 1 Then
Lotnummer_verdwijnen
Lotnaam_verdwijnen
Nieuw_nummer
End If

If Range("N1").Value = 2 Then
Duizendtal_zwart

End If
If Range("N1").Value = 3 Then
honderdtal_zwart
End If
If Range("N1").Value = 4 Then
tiental_zwart
End If
If Range("N1").Value = 5 Then
eenheden_zwart
End If
If Range("N1").Value = 6 Then
lotnaam_weergeven
End If
If Range("N1").Value = 7 Then
Range("n2").Value = Range("n2").Value + 1
Lotnummer_verdwijnen
Lotnaam_verdwijnen
End If
If Range("N1").Value >= 7 Then
stapnummer = 1
End If
End Sub

 

[edmoor]

Zetje:
Application.Wait "00:00:01"


En plaats code altijd tussen code tags op het forum.

 

[andrevanderhors]

Dank u op het juiste spoor gezet.