VBA Laufschrift: Zeitgrenze definieren
dieter(drummer)
Hi VBA Profis,
habe aus dem Forum folgendes Makro in meiner Arbeitsmappe, Modul2. Es bewirkt, das in der aktiven Tabelle, hier TAB4, in Zelle B5 eine vorhandener Text als Laufschrift abläuft.
Makro (Verfasser hatte ich leider nicht notiert):
Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Laufschrift()
Dim rng As Range
Dim iCounter As Integer
Application.EnableCancelKey = xlErrorHandler
Set rng = Range("A5")
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
Nun mein Wunsch in diesem Makro ändern:
a) Die Laufzeit der Laufschrift soll z. B. 3 Sekunden sein. b) Nach Durchlauf Zelle B5 aktivieren!
Spitze wäre wohl, wenn trotz laufender Laufschrift eine Eingabe in B5 (nur Ganzzahl) möglich wäre.
Danke für's drum kümmern und evtl. Hilfe.
Gruss dieter(drummer)
Anzeige