Laufschrift

Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Rotieren()
Dim rng As Range
Dim iCounter As Integer
Application.EnableCancelKey = xlErrorHandler
Set rng = Range("D12")
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


Wie schaff ich es, daß die Laufschrift während der gesamten Anwendung läuft und ich normal im Workbook arbeiten kann?

Geht das?

Bitte um Unterstützung, danke!

Grüße

Roland