Gruppe
Allgemein
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.
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