woher weis ich denn was du gemacht hast? Andere Versuche? Wenn man es nicht kapiert helfen irgendwelche Versuche auch nicht. 

kopier das mal in ein Allgemeines Modul. 

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