Countdown

Forumthread: Countdown

Countdown

02.07.2023 12:06:57

UdPa

Hallo
Ich habe eine Excelmappe, wo beim Starten für 5 Sekunden ein Blatt (Startbildschirm) eingeblendet wird.
Nach den 5 Sekunden steht die Excel anwendung zur Verfügung.
Gibt es auch eine Möglichkeit, dass auf diesem Startbildschirm quasi ein Countdown runterläuft?
So in etwa Bitte warten 5,..4,..3,..2,..1
Danke für eure antworten
LG Udo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Countdown

02.07.2023 12:38:45

RPP63
AW: Countdown

02.07.2023 12:53:25

UdPa

AW: Countdown

02.07.2023 12:38:45

RPP63

Moin!

Sub CountDown()
Dim i&
For i = 5 To 0 Step -1
  Range("A1") = i
  Application.Wait Now + TimeSerial(0, 0, 1)
Next
Range("A1").ClearContents
End Sub

Gruß Ralf

AW: Countdown

02.07.2023 12:53:25

UdPa

Perfekt
Vielen Dank

Forumthread: Countdown

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread