kann mir jemand helfen?
Dieser Code soll möglichst im 1/10 Sekunden-Takt laufen.
Option Explicit
Dim blnStopp As Boolean
Sub BerechnungStarten()
blnStopp = False
Call Berechnung
End Sub
Sub Berechnung()
If Not blnStopp Then
Application.StatusBar = Format(Now, "DD.MM.YYYY HH:MM:SS")
Application.OnTime Now + TimeValue("00:00:01"), "Berechnung"
Else
Application.StatusBar = False
End If
End Sub
Sub BerechnungStopp()
blnStopp = True
End Sub
Kann mir jemand sagen wie das geht?
Danke
Gruß
Felix