VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Laufschrift erzeugen

Gruppe

Allgemein

Bereich

Ansicht

Thema

Laufschrift erzeugen

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

    


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