Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Blattwechsel-Intervall

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige