Hilfe beim Makroumbau / Lauftext.........
15.01.2005 19:09:41
Sonnenpeter
ich habe weiter unten schon mal nachgefragt kam leider nicht weiter.
In der Recherche habe ich das nachfolgende Makro gefunden.
Funktioniert einwandfrei in der Zelle (Range).
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
Nur der Umbau auf das Textfeld will mir nicht gelingen.
Sub Rotieren_2()
Dim rng As Object
'Shapes("Lauftext")
Dim iCounter As Integer
Application.EnableCancelKey = xlErrorHandler
Set rng = TextBox("Lauftext")
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
Ich bitte um Hilfe.......... das muss doch gehen, oder?
Gruß / Sonnenpeter