title image


Smiley So:...
Hallo Heiner,



Probiers mal so:



Option Explicit



Dim ET As Double

Dim CountDown As Double



Sub StopAnzeige()

Application.OnTime EarliestTime:=ET, Procedure:="ZeigenZeit", Schedule:=False

End Sub



Sub ZeigenZeit()

If Now > CountDown Then

StopAnzeige

Else

[A2] = Format(CountDown - Now, "hh:mm:ss")

ET = Now + 1 / 86400

Application.OnTime ET, "ZeigenZeit"

End If

End Sub



Sub Start()

CountDown = Now + [A1] / 1440

ZeigenZeit

End Sub



mit Start wirfst Du den Countdown an. Er übernimmt die Minuten aus der Zelle A1 und gibt die Restzeit in A2 aus. Achte darauf, dass Du A2 mit 'mm:ss' formatiert hast.



Mit Stopanzeige kannst Du den Countdown anhalten, bevor er 00:00 erreicht hat.



Gruss

Klaus





Heute schon reingeschaut?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: