Macro iedere vijf minuten herhalen: neemt echter ingebouwde teller niet mee.

[Excelbat]

Hallo allemaal,

Op internet een macrootje gevonden die iedere vijf seconden weer opnieuw begint (om deze macro hieronder dus 'snel' te kunnen testen).
Ik heb geprobeerd een tellertje in te bouwen, zodat ik kan zien hoeveel keren deze procedure al doorlopen is. Echter de teller blijft op 1 staan,
en loopt niet op naar 2, 3, etc. Wat doe ik hier fout?

Sub MijnProcedure()
Dim Teller As Long
    Teller = Teller + 1
    MsgBox "Hello world: " & Teller
    Call TestMacro ' for starting timer again
End Sub

Sub TestMacro()
    Application.OnTime Now + TimeValue("00:00:05"), "MijnProcedure"
End Sub

Bekijk bijlage MacroIedereVijfSecondenHerhalen.xlsb

Greetz/Excelbat

 

[snb]

Declareer de teller als private of public.

 

[Excelbat]

Thanx SNB,

Dat was 'm inderdaad.

Public Teller As Long

Sub MijnProcedure()
    Teller = Teller + 1
    MsgBox "Hello world: " & Teller
    Call TestMacro ' for starting timer again
End Sub

Sub TestMacro()
    Application.OnTime Now + TimeValue("00:00:05"), "MijnProcedure"
End Sub

Greetz/Excelbat