Laufschrift
08.07.2003 07:06:32
Heidi
Habe ein Problem bei der Laufschrift :
Wenn ich denn u.a Code einfüge kommt immer diese Fehler Meldung
Fehler beim kompilieren
Konstanten, Zeichenfolge feste Längen .....
Was mache ich falsch ??
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("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