Excel und VBA: Formeln, Programmierung, Lösungen

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