bin schon seit Stunden an einer lösung dran vieleicht könnt ihr mir weiter helfen.
Danke und Gruss
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Rotieren()
Dim C As Range
Dim i%
Set C = Range("E10")
For i = 1 To 2000
C = Right(C, Len(C.Value) - 1) + Left(C, 1)
Sleep 200
Next i
End Sub
Ursprung: www.excel-lex.de Nr. 30 6 Nr. 140 Laufschrift
schau bitte dort einmal nach.