|
Hi, ich verstehe es leider nicht, habe was umgeschrieben und kommt immer noch Fehler. Kann mir jemand sagen wo und was ich umschreiben muss?
Danke schon mal
Sub TabellenblattWechseln()
Dim SartWechsel As Integer
Dim Blattname As String
Dim Dateiname As String
Dim Pfad As String
Dim Dateiname_mit_Pfad As String
Dim Zeit As String
Dim Bezug As String
Dim Tabellenblatt As String
Static Zaehler_Wechsel As Integer
If Zaehler_Wechsel < 1 Then
Zeit = "00:00:05"
Zaehler_Wechsel = Zaehler_Wechsel + 1: If Zaehler_Wechsel < 2 Then GoTo Sprung
End If
'Blattname = ActiveWorkbook.ActiveSheet.Name
If Blattname = "Liveticker Ergebnis" Then
Zeit = "00:01:00"
End If
If Blattname = "32er Grafik" Then
Zeit = "00:00:20"
End If
StartWechsel = Workbooks("LivetickerAusgabeMonitor_Auto_Wechsel.xlsm").Worksheets("Gruppenspiele Übersicht").Cells(2, 57).Value
If Blattname = "Gruppenspiele Übersicht" Then
Zeit = "00:00:05"
End If
If StartWechsel = 1 Then
Dim INDEX As Long
INDEX = ActiveSheet.INDEX
If INDEX = Worksheets.Count Then INDEX = 1
Worksheets(INDEX + 1).Activate
If Blattname = "Gruppenspiele Übersicht" Then
Blattname = "Liveticker Ergebnis"
MsgBox Blattname
End If
If Blattname = "Liveticker Ergebnis" Then
Blattname = "32er Grafik"
MsgBox Blattname
End If
If Blattname = "32er Grafik" Then
Blattname = "Liveticker Ergebnis"
MsgBox Blattname
End If
Application.OnTime Now() + TimeValue(Zeit), "TabellenblattWechseln" hier kommt der Fehler
Else
Sprung:
Blattname = "Gruppenspiele Übersicht"
MsgBox Blattname
Application.OnTime Now() + TimeValue("00:00:10"), "TabellenblattWechseln"
End If
End Sub
|