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
|