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.

•

Bitcoin Address: bc1qfuz93hw2fhdvfuxf6mlxlk8zdadvnktppkzqzj

Follow Me❗️

Mastodon • Mastodon RSS • codeberg.org/sst • RSS