Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Countdown in Statusleiste

Gruppe

Statusleiste

Problem

In der Statusleiste soll ein CountDown von 30 bis 0 Sekunden gezeigt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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