Laufschrift in (verbundener) Zelle
31.08.2020 19:37:28
Rolf
ich hoffe ich könnt mir da weiterhelfen.
Im Netz habe ich folgenden Code gefunden:
In einer leeren Exceldatei habe ich diese mal ausprobiert.
Sub Rotieren()
Dim C As Range
Dim i%
Set C = AvtiveCell
For i = 1 To 25000
C = Right(C, Len(C.Value) - 1) + Left(C,1)
Application.Wait Now + TimeSerial(0 ,0, 0.5)
Next i
End Sub
(Steht C eigentlich für die Zelle, in der die Laufschrift aktiv sein soll?)
Ordne ich den Code einem Modul zu und hinterlege es einer Schaltfläche, funktioniert es grundsätzlich.
Die Schrift läuft jedoch viel zu schnell. Unterbrechen kann ich die Laufschrift nicht . Weitere Eingaben im Tabellenblatt sind nicht möglich, da der Mauszeiger nur rotiert. Zum Schluss stürzt Excel komplett ab.
Könnt Ihr mir da gegebenenfalls einen richtigen und funktionsfähigen Code nennen?
In meinem zutreffenden Tabellenblatt habe ich die Zellen U9 bis AA9 verbunden.
Dort soll die Laufschrift hinterlegt werden.
Funktioniert es eigentlich mit verbundenen Zellen?
Besteht ggf. auch die Möglichkeit die Dauer der Laufschrift zu begrenzen.
D.h.: Sobald in der Zelle C17 das Wort "Ende" steht, soll die Laufschrift enden.
Wenn die Laufschrift läuft, sollen auch weiterhin Eintragungen im Tabellenbaltt möglich sein.
Ich habe noch einen anderen Code gefunden, der jedoch nur für 32Bit Systeme geeignet sind.
Mein System hat 64Bit. Funktionierte ebenfalls nicht.
Mit freundlichen Grüßen
Rolf