Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

endlosschleife für scrollen

endlosschleife für scrollen
Sankt
Hi,
ich habe eine Ergebnisliste in Excel.
Diese möchte ich auf eine Leinwand werfen.
Meine Frage ist gibt es die Möglichkeit die Liste automatisch scrollen zu lassen so das sie von oben wieder anfängt wenn sie unten angekommen ist?
Gruß
Sankt

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: endlosschleife für scrollen
19.05.2010 15:22:31
Rudi
Hallo,
in ein Modul:
Sub scroll()
Dim n As Long, t
xlStart:
Application.Goto Range("A1"), True
Do
ActiveWindow.SmallScroll Down:=1
n = n + 1
t = Timer
Do
Loop Until Timer > t + 0.2  'Verzögerung
Loop Until n > Cells(Rows.Count, 1).End(xlUp).Row
n = 0
GoTo xlStart
End Sub

Abbruch mit ESC
Gruß
Rudi
AW: endlosschleife für scrollen
19.05.2010 15:33:44
Sankt
Hi,
ich habe den code eingefügt, es passiert leider nichts.
https://www.herber.de/bbs/user/69648.xls
Könntest du mal schauen was ich verkehrt gemacht habe
Gruß
Sankt
Anzeige
hast du ihn auch gestartet? owT
19.05.2010 15:54:57
Rudi
AW: hast du ihn auch gestartet? owT
20.05.2010 13:04:04
Sankt
Hi,
das habe ich natürlich nicht schmoll.
vielen Dank für Eure Hilfe und für Euren Hinweis.
Gruß
Sankt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige