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


Gib mir gerne einen Kaffee ☕ aus!

Wenn dir meine Beiträge gefallen und geholfen haben, dann kannst du mir gerne einen Kaffee ☕ ausgeben.

PayPal Logo


liberapay.com/strobelstefan.org


Schreibe einen Kommentar

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