Hallo! Ich möchte, dass sich in einem Word-Dokument bspw. eine Variable alle 10 Minuten um einen Wert erhöht. Das Starten funktioniert gut, aber ich kann beide Application.OnTime-Methoden (siehe Code) nicht auf Befehl stoppen - es läuft einfach weiter und die Variable erhöht sich trotzdem.

Ich benutze Word Version 2408 auf Windows 11 Pro. Über Hilfe wäre ich sehr dankbar! Vielen Dank im Voraus!

Public NextTime As Date
Public i As Integer
 
Sub StartCounting()
 
    i = 0

    MsgBox ("Der Wert von i ist " & i)
 
    NextTime = Now + TimeValue("00:10:00")
    Application.OnTime NextTime, "Counting"
     
End Sub
 
Sub Counting()
     
    i = i + 1

    MsgBox ("Der Wert von i ist " & i)
     
    NextTime = Now + TimeValue("00:10:00")
    Application.OnTime NextTime, "Counting"
     
End Sub
 
Sub StopCounting()
         
    Application.OnTime NextTime, "Counting", False
     
End Sub