Gruppe
Allgemein
Problem
In der Statusleiste soll ein CountDown von 30 bis 0 Sekunden gezeigt werden.
StandardModule: basMain
Sub CountDown()
Dim intCounter As Integer
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
For intCounter = 30 To 1 Step -1
Application.StatusBar = "Noch " & _
intCounter & " Sekunden..."
Application.Wait Now + TimeSerial(0, 0, 1)
Next intCounter
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub