Schlagwort: Countdown

Veröffentlicht am

Countdown mit VBA

Mit diesem VBA wird in die Tabelle1 Zelle A1 ein Countdown eingefügt. Die Zeit wird heruntergezählt.

Code

Option Explicit

Public Zeitlng As Long

Sub CountdownStarten()
Dim I As Integer
Dim CountdownSek As Long
Sheets("Verant").Select

CountdownSek = 20          '120 Sekunden Countdown

For I = 0 To CountdownSek
Application.OnTime Now + TimeSerial(0, 0, I), "ZeitAusgeben"
Next I

Zeitlng = CountdownSek
End Sub
Sub ZeitAusgeben()

Range("A1").Value = TimeSerial(0, 0, Zeitlng)
Range("A1").NumberFormat = "[h]:mm:ss"
If Zeitlng = 0 Then
    MsgBox "Ziel erreicht"
    Exit Sub
End If

Zeitlng = Zeitlng - 1
End Sub