- #1
A
Ace_NoOne
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 07.04.2002
- Beiträge
- 403
- Reaktionspunkte
- 0
- Ort
- Germany
Hallo zusammen,
ich bräuchte ein Makro, das automatisch alle 15 oder 20 Sekunden genau eine Zeile nach unten scrollt. Leider krieg ich's alleine nicht hin, wäre also dankbar, wenn mir jemand helfen könnte.
Wenn möglich, sollte das Ganze auch pausierbar und natürlich auch abzubrechen sein...
Im Voraus besten Dank!
Mein ärmlicher Versuch sah so aus:
ich bräuchte ein Makro, das automatisch alle 15 oder 20 Sekunden genau eine Zeile nach unten scrollt. Leider krieg ich's alleine nicht hin, wäre also dankbar, wenn mir jemand helfen könnte.
Wenn möglich, sollte das Ganze auch pausierbar und natürlich auch abzubrechen sein...
Im Voraus besten Dank!
Mein ärmlicher Versuch sah so aus:
Code:
Sub autoScroll()
'
' autoScroll Makro
' waits 15 seconds, then scrolls down one line
'
Dim interval, start
interval = 15 -> Dauer festlegen.
start = Timer -> Anfangszeit setzen.
ActiveWindow.SmallScroll Down:=1
Do While MsgBox(STOP, 4) <> vbYes
If Timer > start + interval Then
ActiveWindow.SmallScroll Down:=1
start = Timer
End If
Loop
End Sub