Gruppe
DatumZeit
Bereich
Zeit
Thema
Zählen von Jahren, Monaten, Tagen, Stunden, Minuten, Sekunden
Problem
In einer Tabelle wird gezählt, wieviel Zeitabschnitte zum Ausgangspunkt vergangen sind bzw. zum Endpunkt noch zu erwarten sind. Abbruch der Routine mit der ESCAPE-Taste.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
StandardModule: basMain
Sub CountDown()
On Error GoTo ERRORHANDLER
Application.EnableCancelKey = xlErrorHandler
Do
Application.Wait Now + Range("B3").Value
Application.Calculate
Loop While Err = 0
ERRORHANDLER:
MsgBox "Ablauf wurde unterbrochen!"
End Sub