Hallo in die Runde,
dies ist mein erster Beitrag und ich fange grad erst an mit Excel-VBA - also habt etwas Einsehen mit mir falls ich mich nicht richtig ausdrücke.
Folgender Sachverhalt: Ich habe eine Ergebnisliste in Exel die über eine 2. Datei auf einem 2. Monitor erscheinen soll. Die 2. Datei soll dann auf dem 2. Monitor in einer Dauerschleife durch die Ergebnisliste scrollen - am Ende wieder nach oben springen und den Vorgang erneut starten. Der erste Teil funktioniert - es scrollt bis zum Ende und springt dann wieder an den Anfang aber dann startet der Scroll-Vorgang nicht wieder automatisch.
Meine Frage ist jetzt - was fehlt in dem Code damit der Vorgang - sagen wir mal 8 Stunden - kontinuierlich abläuft?

Viele Grüße
KarstenL

Hier der Code:


Sub AutoScroll()

Dim i As Long
Dim rowcount As Long
Dim scrollamount As Long

'Finde die Anzahl der Zeilen, durch die gescrollt werden soll

rowcount = Cells(Rows.Count, 1).End(xlUp).Row

'Anzahl der Zeilen, die bei jedem Vorgang weitergescrollt werden

scrollamount = 10

'Beginn

Range("A1").Select

'Schleife durch die Zeilen (angepasst an die Scroll-Menge)

For i = 1 To rowcount / scrollamount

ActiveWindow.SmallScroll Down:=scrollamount

'Wartezeit bevor der nächste Scrollvorgang beginnt

Application.Wait (Now + TimeValue("0:00:05"))

Next i

'Sprung zurück an den Anfang

Range("A1").Select


End Sub