Laufschrift
07.07.2003 14:20:58
Heidi
habe mir den u.a Code aus dem Excel-Faq kopiert und habe dazu einige Fragen
1. Wie macht man die Laufschrift Langsamer o. Schneller
2. Ich würde die Laufschrift gern auf dem ersten Tabellenblatt automatisch benutzen
3. Wieso hängt sich Excel mit diesem Code auf
Code:
Private Sub Auto_Open()
Dim rng As Range
Dim iCounter As Integer
Application.EnableCancelKey = xlErrorHandler
Set rng = Range("A27")
On Error GoTo ERRORHANDLER
For iCounter = 1 To 10000
rng.Value = Right(rng.Value, Len(rng.Value) - 1) + _
Left(rng.Value, 1)
Next iCounter
ERRORHANDLER:
End Sub
Anzeige