Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Laufschrift erzeugen

Gruppe

Ansicht

Problem

Wie kann ich in Excel eine Laufschrift erzeugen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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