Vielen Dank
Markus
Info in der Bildschirm-Statusleiste (unterer Teil von Excel)
Application.StatusBar = " >> Dein Text << "
Grüße
Bernd
wo hättest Du denn gern Deine "Laufschrift"? Für Gifs schau bitte unter gif89.dll im Netz - kostenlos(!).
Für einen einfachen Laufbalken in einer Userform nimmst Du ein Label, dessen Backcolor Du auf eine Farbe setzt und die Width-Eigenschaft rhytmisch veränderst. Mit der Application.StatusBar geht das so ähnlich. Du suchst Dir ein Rechteck aus den Zeichen aus und addierst es immer wieder zum String dazu.
Gruß
Micha
ich weiß das der Quellcode nicht sauber programmiert ist, aber ist noch aus meiner "Anfangszeit". Er funktioniert und vielleicht hilft's, hatte leider noch keine Zeit ihn zu optimieren und zu säubern.
Gruß
AJK
Sub laufschrift()
Dim lauf
Dim lauf1
Dim lauf2
Dim lauf3
Dim leer
Dim lauftext
Dim text
Dim leer1
Dim i
i = 1
text = "Das ist eine Laufschrift"
lauftext = ""
leer = ""
For lauf = 1 To Len(text)
leer1 = leer1 + " "
Next
While i < 10
Application.StatusBar = lauftext
For lauf = 1 To Len(text)
If lauftext = text Then
For lauf5 = 1 To Len(text)
leer = leer + " "
lauftext = leer + Mid(lauftext, lauf5, Len(lauftext) - lauf5)
If lauftext = leer1 Then
i = i + 1
lauf = 0
leer = ""
lauftext = ""
Else
Application.StatusBar = lauftext
GoSub pause
End If
Next
Else
lauftext = Left(Right(text, lauf), 1) + lauftext
End If
Application.StatusBar = lauftext
GoSub pause
Next
Wend
Exit Sub
pause:
For lauf3 = 1 To 1500000
Next
Return
Application.StatusBar = ""
End Sub