Automatisches Blattwechsel-Intervall

Forumthread: Automatisches Blattwechsel-Intervall

30.12.2016 18:56:47

Dirk

Automatisches Blattwechsel-Intervall
Der Code funktioniert leider nicht, bringt Debugfehler in Office 2016
https://www.herber.de/forum/archiv/1176to1180/1177797_Wechsel_der_Tabellenblaetter.html
Würde mich freuen wenn Ihn jemand anpassen könnte.
Danke im vorraus

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisches Blattwechsel-Intervall

30.12.2016 19:07:48

Hajo_Zi
AW: Automatisches Blattwechsel-Intervall

30.12.2016 19:38:29

Werner
AW: Automatischer Blattwechsel - Intervall

30.12.2016 19:49:35

Gerd

AW: Automatisches Blattwechsel-Intervall

30.12.2016 19:07:48

Hajo_Zi

Warum neuen Beitrag?
Wo ist die Datei?

AW: Automatisches Blattwechsel-Intervall

30.12.2016 19:38:29

Werner

Hallo Dirk,
kann ich so nicht nachvollziehen. Habe den Code eben aus dem alten Beitrag raus kopiert und in eine Excel-Datei mit 4 Tabellenblättern rein kopiert. Datei neu gestartet, läuft - die Blätter 1-3 werden jeweils 10 Sekunden angezeigt. Ich habe auch Excel 2016.
Das einzige was einen Fehler verursacht hat war das Beenden der Zeitschleife, da war ein Fehler drin.
Und zwar hier:

Application.OnTime dblZeit, "Wechseln", schedule:=False

richtig so:

Sub WechselStoppen()
'Mit diesem Makro wird der automatische Blattwechsel gestoppt !
Application.OnTime dblZeit, "BlattWechseln", schedule:=False
End Sub

Gruß Werner

AW: Automatischer Blattwechsel - Intervall

30.12.2016 19:49:35

Gerd

Für die Annalen.
Gruß Gerd

Option Explicit
'Automatischer Blattwechsel nach 10 Sekunden
'Schleife über alle angegebenen Blätter bis zum STOPP !
'15.09.2010, NoNet - www.excelei.de
Public dblZeit As Double
Public strSheet
Public lngSheet As Long
Public lngIntervall As Long
Sub WechselStarten()
'Mit diesem Makro wird der automatische Blattwechsel gestartet !
'Namen der zu wechselnden Blätter - bitte anpassen !
strSheet = Array("Tabelle1", "Tabelle2", "Tabelle3")
lngIntervall = 10 'Intervall in 10 Sekunden - bitte anpassen !
dblZeit = Now + TimeSerial(0, 0, lngIntervall)
Application.OnTime dblZeit, "BlattWechseln"
End Sub
Sub WechselStoppen()
'Mit diesem Makro wird der automatische Blattwechsel gestoppt !
Application.OnTime dblZeit, "BlattWechseln", schedule:=False
End Sub
Sub BlattWechseln()
'Mit diesem Makro wird der Blattwechsel durchgeführt !
lngSheet = lngSheet + 1
If lngSheet > UBound(strSheet) Then lngSheet = LBound(strSheet)
Sheets(strSheet(lngSheet)).Activate
dblZeit = Now + TimeSerial(0, 0, lngIntervall)
Application.OnTime dblZeit, "BlattWechseln"
End Sub

Beliebteste Forumthreads (12 Monate)

Automatisches Blattwechsel-Intervall

Forumthread: Automatisches Blattwechsel-Intervall

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread