Countdown in der Statusleiste mit VBA in Microsoft Excel

Wenn Sie sich fragen, wie kann ich einen Timer in Excel erstellen?

Frage:

In der Statusleiste soll ein Countdown von 30 bis 0 Sekunden angezeigt werden.

Antworten:
Fügen Sie den folgenden Code in das Standardmodul ein.

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 = intCounter & "Sekunden… " Application.Wait Now + TimeSerial(0, 0, 1) Next intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Auf diese Weise können Sie die Statusleiste verwenden, um den Excel-VBA-Timer anzuzeigen.