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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen