VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Countdown in Statusleiste

Gruppe

Allgemein

Bereich

Statusleiste

Thema

Countdown in 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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Statusleiste