Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Laufschrift in Stautsleiste

Gruppe

Statusleiste

Problem

In der Statusleiste soll über die in Zelle B1 genannte Anzahl von Durchläufen eine Laufschrift in dem in Zelle B2 genannten Tempo angezeigt werden.

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

StandardModule: Modul1

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Blinken()
 TextBlinkenLassen (Application.UserName & " sagt guten Morgen!")
End Sub

Sub TextBlinkenLassen(sText As String)
   Dim iChar As Integer, iCounter As Integer
   Dim sTxt As String
   Dim bln As Boolean
   bln = Application.DisplayStatusBar
   Application.DisplayStatusBar = True
   For iCounter = 1 To Range("B1").Value
      For iChar = 1 To Len(sText)
         Sleep Range("B2").Value
         sTxt = sTxt & Mid(sText, iChar, 1)
         Application.StatusBar = sTxt
         DoEvents
      Next iChar
      sTxt = ""
   Next iCounter
   Application.StatusBar = False
   Application.DisplayStatusBar = bln
End Sub