Thema: Laufschrift in Stautsleiste

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

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