Option
Explicit
Dim
Zeit
Dim
runZeit
Dim
start
As
Workbook
Dim
Zaehlerwechsel&
Dim
Blattname$
Dim
wb
As
Workbook
Sub
startprog()
Set
start = ThisWorkbook
On
Error
Resume
Next
Set
wb = Workbooks(
"LivetickerAusgabeMonitor_Auto_Wechsel.xlsm"
)
If
Err > 0
Then
MsgBox
"datei nicht göffnet"
Exit
Sub
End
If
Select
Case
start.ActiveSheet.Name
Case
"Liveticker Ergebnis"
: Zeit =
"00:00:10"
Case
"32er Grafik"
: Zeit =
"00:00:10"
Case
"Gruppenspiele Übersicht"
: Zeit =
"00:00:05"
Case
Else
: Zeit =
"00:00:05"
End
Select
runZeit = Now() + TimeValue(Zeit)
Application.OnTime runZeit, start.Name &
"!TabellenblattWechseln"
End
Sub
Sub
TabellenblattWechseln()
Dim
StartWechsel&
Zaehlerwechsel = Zaehlerwechsel + 1
StartWechsel = wb.Worksheets(
"Gruppenspiele Übersicht"
).Cells(2, 57).Value
If
StartWechsel = 1
Then
If
start.ActiveSheet.INDEX = start.Worksheets.Count
Then
start.Worksheets(1).Activate
Else
start.ActiveSheet.
Next
.Activate
End
If
End
If
Select
Case
start.ActiveSheet.Name
Case
"Liveticker Ergebnis"
: Zeit =
"00:01:00"
Case
"32er Grafik"
: Zeit =
"00:00:20"
Case
"Gruppenspiele Übersicht"
: Zeit =
"00:00:05"
Case
Else
: Zeit =
"00:00:05"
End
Select
runZeit = Now() + TimeValue(Zeit)
Application.OnTime runZeit, ThisWorkbook.Name &
"!TabellenblattWechseln"
End
Sub