Private Sub TestTimer()
Application.OnTime Now + TimeValue("00:02:00"), "sbEnde"
Dim Endzeit
Endzeit = Now + TimeValue("00:02:00")
Application.OnTime Endzeit, "sbEnde"
Application.StatusBar = "Fertigstellung um " & Format(Endzeit, "hh:mm")
End Sub
Hey Leute,ich bin am Versuch gescheitert, das TimeValue auf einen beliebigen Wert (=beliebige Dauer) neu zu setzen.
Ich will also das TimeValue als Variable definieren, um verschiedene Zeiten ablaufen lassen zu können, ohne den Code anpassen zu müssen (x soll dann durch Value irgendeiner Zelle definiert werden).
Wer kann´s richten?