Laufschrift
02.11.2004 11:58:51
Roland
Ich hab folgenden Code zur Laufschrift erstellt.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("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