Laufschrift
08.07.2003 09:49:45
Tina
Habe eine Laufschrift mit dem u.a Code !!
Wie kann ich es einstellen ,so das es automatisch im Hintergrund als News Ticker durchgehend läuft und ich weiter in Excel arbeiten kann denn so kann ich während des laufen der schrift nichts tun !
Option Explicit
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("A27")
On Error GoTo ERRORHANDLER
For iCounter = 1 To 20
rng.Value = Right(rng.Value, Len(rng.Value) - 1) + _
Left(rng.Value, 1)
Sleep 100
Next iCounter
ERRORHANDLER:
End Sub
Danke
Anzeige