Gruppe
Allgemein
Problem
Wie kann ich in Excel eine Laufschrift erzeugen?
StandardModule: basMain
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Rotieren()
Dim rng As Range
Dim iCounter As Integer
Application.EnableCancelKey = xlErrorHandler
Set rng = Range("E10")
On Error GoTo ERRORHANDLER
For iCounter = 1 To 10000
rng.Value = Right(rng.Value, Len(rng.Value) - 1) + _
Left(rng.Value, 1)
Sleep 100
Next iCounter
ERRORHANDLER:
End Sub