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