Automatisches Blattwechsel-Intervall
15.09.2010 15:32:25
NoNet
Hallo Sascha,
den Blattwechsel kannst Du mit folgendem VBA-Code realisieren (Bitte in ein allgemeines Modul, z.B. "Modul1" kopieren) :
'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, "Wechseln", 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
Die Namen der Tabellenblätter und das Intervall (in Sekunden) kannst Du noch anpassen !
Gruß, NoNet