VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Laufschrift in Stautsleiste

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

    


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