111005

Mit diesem Code kann innerhalb einer Zelle eine Laufschrift erstellt werden.

Die Buchstaben werden der Reihe nach vertauscht.

Sub Rotieren()

Dim C As Range

Dim i%

Set C = ActiveCell

For i = 1 To 2000

C = Right(C, Len(C.Value) - 1) + Left(C, 1)

Application.Wait Now + TimeSerial(0, 0, 1)

Next i

End Sub