Ich hoffe, dass mir jemand bei diesem Problem helfen kann.
Was ich brauche ist ein Programm welches eine Sub Routine jede Sekunde aufruft.
Dabei soll aber das eigentliche Programm weiterlaufen.
Ich bastel gerade an dem folgenden Beispiel:
Public Sub Auto_open()
Call CountDown
For I = 1 To 20000
Range("B1") = I
Next I
End Sub
Public Sub CountDown()
Range("A1") = Now()
Application.OnTime Now() + TimeValue("00:00:01"), "CountDown"
End Sub
Wenn das ganze Funktionieren soll müßte die Uhrzeit auch weiterlaufen
wenn die For-Next Schleife abgearbeitet wird.
Das passiert allerdings nicht.
Ich hoffe jemand hat etwas fertiges liegen.
Viele Grüße
Christof