Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Lauftext in Excel

Forumthread: Lauftext in Excel

Lauftext in Excel
18.02.2004 12:03:50
irina
hallo liebe gemeinde!
ich möchte gern einen beliebigen lauftext in eine zelle von excel integrieren können.
bestimmt gibt es hierzu eine routine, die man dann mit dem entsprechenden text ausfüllen kann?
könnt ihr mir hier weiterhelfen?
ich danke euch allen
irina
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lauftext in Excel
18.02.2004 12:34:29
andre
...eintrag in e10 - siehe code ... range("e10")
bei bedarf auf eine andere zelle anpassen. der lauftext muss bei start in der zelle stehen. ein leerzeichen am anfang oder ende wäre günstig ;-)
gruss andre
Anzeige
AW: Lauftext in Excel
18.02.2004 12:41:23
andre
hallo irina,
hier mal die variante aus den faq abgewandelt, dass der text im code steht. wenn du das declare... noch im modul hast, dann brauchst du es nicht noch mal (sonst kommt fehler xxx):


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Rotieren()
  Dim Lauftext As String
  Dim iCounter As Integer
  Application.EnableCancelKey = xlErrorHandler
  Lauftext = "Lauf Text, lauf! "
  On Error GoTo ERRORHANDLER
  For iCounter = 1 To 10000
    Range("A1").Value = Lauftext
    Lauftext=Right(Lauftext, Len(Lauftext) - 1) + _
      Left(Lauftext, 1)
    Sleep 100
  Next iCounter
ERRORHANDLER:
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

gruss andre
Anzeige
AW: Lauftext in Excel
19.02.2004 08:41:38
irina
hallo andre!
habe deine lösung ausprobiert und funzt auch gut.
frage:
wie kann ich denn in mehreren zellen einen lauftext programmieren?
habe die lösung von hajo ausprobiert, doch hier kamen bei änderung der tabelle als auch der zelle fehlermeldungen, wenn ich versucht habe, sie zu kopieren und bearbeitet einzufügen.
was kann ich denn falsch gemacht haben unter umständen?
danke dir für deine hilfe
irina
Anzeige
AW: Lauftext in Excel
18.02.2004 12:05:44
Hajo_Zi
Hallo Irina
schaue mal auf meine Homepage da ist ein Beispiel, auf der Seite VBA.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Lauftext in Excel
18.02.2004 12:24:57
Hajo_Zi
Hallo Irina
schreibe den Text in Zelle B1

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Lauftext in Excel
18.02.2004 16:04:11
irina
hallo hajo!
vielen dank.
habe text zum laufen gebracht, allerdings nicht in zelle b1, sondern b4, da du dorthin die funktion programmiert hattest.
kann ich den text denn auch in mehrere zellen programmieren?
ich frage deswegen, weil ich habe es ausprobiert und die zellen als auch die tabelle geändert, doch es kommt ne fehlermeldung... :(
ich danke dir für deine hilfe
irina aus düsseldorf
Anzeige
AW: Lauftext in Excel
19.02.2004 08:14:01
Hajo_Zi
Hallo Irina
in VBA ist fast alles möglich. Der Aufwand ist mir aber zu hoch.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Lauftext in Excel integrieren


Schritt-für-Schritt-Anleitung

Um einen Lauftext in Excel zu integrieren, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung, um dies zu tun:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    
    Sub Rotieren()
        Dim Lauftext As String
        Dim iCounter As Integer
        Application.EnableCancelKey = xlErrorHandler
        Lauftext = "Lauf Text, lauf!"
        On Error GoTo ERRORHANDLER
        For iCounter = 1 To 10000
            Range("A1").Value = Lauftext
            Lauftext = Right(Lauftext, Len(Lauftext) - 1) + Left(Lauftext, 1)
            Sleep 100
        Next iCounter
    ERRORHANDLER:
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro Rotieren auswählst und auf Ausführen klickst.

Der Text in Zelle A1 wird nun als Lauftext angezeigt.


Häufige Fehler und Lösungen

  • Fehlermeldung beim Ausführen des Makros: Stelle sicher, dass der Code korrekt in das Modul eingefügt wurde und dass du die richtigen Berechtigungen hast, um Makros auszuführen.
  • Lauftext startet nicht: Achte darauf, dass die Zelle, in der der Lauftext angezeigt werden soll, korrekt angegeben ist (im Beispiel ist es A1).

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du den Lauftext auch in HTML erstellen und dann in Excel importieren. Dazu kannst du die Funktion WEBSERVICE in neueren Excel-Versionen verwenden, um HTML-Inhalte zu laden und darzustellen. Diese Methode eignet sich jedoch eher für einfache Texte und ist nicht so flexibel wie die VBA-Lösung.


Praktische Beispiele

Um den Lauftext in mehreren Zellen anzuzeigen, könntest du den VBA-Code anpassen. Zum Beispiel könntest du den Text in Zelle B1 schreiben und dann in A1 rotieren. Hier ein Beispiel:

Sub RotierenMehrereZellen()
    Dim Lauftext As String
    Lauftext = Range("B1").Value
    ' Ähnliche Logik wie oben, aber für mehrere Zellen anpassen
End Sub

Tipps für Profis

  • Verwende lauftext html, wenn du den Text aus einer Webseite einfügen möchtest. Dies kann hilfreich sein, wenn du dynamische Inhalte anzeigen möchtest.
  • Experimentiere mit den Zeitintervallen im Sleep-Befehl, um die Geschwindigkeit des Lauftexts zu steuern.

FAQ: Häufige Fragen

1. Kann ich den Lauftext in mehreren Zellen gleichzeitig anzeigen?
Ja, du kannst den VBA-Code so anpassen, dass er den Lauftext in mehreren Zellen anzeigt. Hierzu musst du die Logik des Codes entsprechend erweitern.

2. Funktioniert der Lauftext in allen Excel-Versionen?
Der hier dargestellte Code wurde unter Excel Version XP getestet. Neuere Versionen sollten jedoch ebenfalls funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige