Microsoft Excel

Herbers Excel/VBA-Archiv

Text animation?



Excel-Version: 10.0 (Office XP)

Betrifft: Text animation?
von: Maria
Geschrieben am: 05.06.2002 - 07:57:07

Hallo Forum!
Gibt es eine Möglichkeit, ein festgelegter Text,durchlaufen zu lassen? z.B. mein Name.
Vielen Dank im voraus.
Gruß Maria

  

Re: Text animation?
von: @lex
Geschrieben am: 05.06.2002 - 08:13:05

Guten Morgen !
Siehe hier:
https://www.herber.de/forum/archiv/124to128/t125623.htm
  

Re: Text animation?
von: Maria
Geschrieben am: 05.06.2002 - 10:19:02

Bei mir klappt nichst...kannst du mir weiter helfen......Danke

  

Re: Text animation?
von: @lex
Geschrieben am: 05.06.2002 - 10:28:54

Dazu müsste ich wissen, was nicht funktioniert, wo der Code hängenbleibt etc...
Das Beispiel aus der o.g. Archivdatei funktioniert bei mir einwandfrei.

VG,
Alex


  

Re: Text animation?
von: Maria
Geschrieben am: 05.06.2002 - 10:42:02

Ich hab so eingetragen....
Application.StatusBar = " >> Dein Text << "

Ich bin anfänger....Aber das muss noch etwas eintragen oder?
Danke


  

Re: Text animation?
von: @lex
Geschrieben am: 05.06.2002 - 11:02:31

Da liegt der Fehler.
Deine Text musst Du hier eintragen

--> text = "Das ist eine Laufschrift" <---

Alex


  

Re: Text animation?
von: Maria
Geschrieben am: 05.06.2002 - 11:34:12

Das tut mir sehr Leid aber ich bekomme das nicht in den griff

  

Re: Text animation?
von: @lex
Geschrieben am: 05.06.2002 - 11:57:33

Verstehe ich nicht.
Nochmal langsam:
Alt+F11
Einfügen | modul
Diesen Code einfügen:

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

In Zeile zwölf schreibst Du
text ="HIER KOMMT DEIN TEXT"

Mit alt+f11 zu Excel zurück
alt+f8

Laufschrift auswählen und auf Ausführen.

  

Re: Text animation?
von: Maria
Geschrieben am: 06.06.2002 - 06:23:24

Danke ....Jetz klapp

 

Beiträge aus den Excel-Beispielen zum Thema "Text animation?"