ich habe eine Datei, die jeden Morgen Daten aus einer AS400 runterlädt. Dies dauert immer etwas und ich möchte in dieser Zeit eine Uhr in der Statuszeile runterlaufen lassen, damit erkennbar ist, wie lange es eben noch dauert (ist immer die gleiche Zeit).
Gefunden habe ich mal folgenden Code, den ich bereits etwas modifiziert habe:
Sub Zähler()
Statuszeile = Application.DisplayStatusBar
Application.DisplayStatusBar = True
counter = 0
Sek = 5 'Start der Timers
Min = 0 'dito
Std = 0 'dito
Do
Application.ScreenUpdating = False
counter = counter + 1
MS = Sekunde
Sekunde = Format(Now, "SS")
If Sekunde <> MS Then
Sek = Sek - 1 '-1 für Timer, +1 für Zähler
End If
Status = Format(Std, "00") & ":" & Format(Min, "00") & ":" & Format(Sek, "00")
Application.StatusBar = Status
Loop Until Sek = 0
Application.StatusBar = Status & " Die Zeit ist um!"
End Sub
Leider habe ich in der Recherche nichts gefunden und bekomme es auch nicht hin, dass dieser Timer dann zu laufen beginnt, wenn der Download gestartet wird; entweder es läuft der Timer oder der Download, beides zusammen funktioniert nicht.
Hat jemand vielleicht einen anderen Timer oder kann mir sagen, wie ich vorgehen muss, um beides ablaufen zu lassen bitte.
Gruss, Martin