Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht