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
ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.
Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.
• 
