Laufschrift erzeugen

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

070099    064899

Problem: Wie kann ich in Excel eine Laufschrift erzeugen?

StandardModule: basMain

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