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

Bestseller Nr. 1

(**) Produktpreise und -verfügbarkeit sind zum angegebenen Datum / Uhrzeit korrekt und können sich ändern. Alle Preis- und Verfügbarkeitsinformationen auf https://www.amazon.de/ zum Zeitpunkt des Kaufs gelten für den Kauf dieses Produkts.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.