macro automatisch laten lopen

[Steve72]

Hallo ,

Ga even proberen te schetsen wat ik wil doen. Er zijn twee cellen die ik lke seconde wil controleren of ze van data verander zijn. nu heb ik een seconde timer gemaakt voor elk van de twee cellen en zodoende ook de controle. probleem is dat de macro niet altijd het zelde doet. de ene keer loopt hij goed en de andere keer stop hij niet meer.
Dim vorige_waarde As Variant
Hier de macro die ik geschreven heb.

Sub main()
'inlezen van de data gebeurt om ingestelde tijd
Dim updatetimer1 As Variant
updatetimer1 = 1
If updatetimer1 < 1 Then
updatetimer1 = 1
End If
updatetimer1_value = Now + (updatetimer1 / 86400)
Application.OnTime updatetimer1_value, "Blad12.Print_Label", Schedule:=True
End Sub
Sub Print_Label()
If Blad12.Cells(32, 8) > vorige_waarde Then
TEST1
End If
vorige_waarde = Blad12.Cells(32, 8)
Blad12.Cells(32, 10) = Blad12.Cells(32, 10) + 1
Blad12.Cells(32, 9) = vorige_waarde
Schedule = False
main
End Sub
Sub main2()
'inlezen van de data gebeurt om ingestelde tijd
Dim updatetimer2 As Variant
updatetimer2 = 1
If updatetimer2 < 1 Then
updatetimer2 = 1
End If
updatetimer2_value = Now + (updatetimer2 / 86400)
Application.OnTime updatetimer2_value, "Blad12.Verplaats", Schedule:=True
End Sub
Sub Verplaats()
If Blad12.Cells(26, 8) > vorige_waarde2 Then
TEST2
End If
vorige_waarde2 = Blad12.Cells(26, 8)
Blad12.Cells(26, 10) = Blad12.Cells(26, 10) + 1
Blad12.Cells(26, 9) = vorige_waarde2
Schedule = False
main2
End Sub