Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zählen von Jahren, Monaten, Tagen, Stunden, Minuten, Sekunden

Gruppe

Zeit

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

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Zeit