Gruppe
Allgemein
Bereich
Statusleiste
Thema
Laufschrift in Stautsleiste
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