Thema Datum  Von Nutzer Rating
Antwort
27.02.2024 12:49:07 Uwe
NotSolved
27.02.2024 14:22:07 Gast14254
NotSolved
29.02.2024 09:52:50 Gast84775
NotSolved
27.02.2024 17:34:08 ralf_b
NotSolved
Rot Makro Schleife
29.02.2024 12:43:40 Gast76420
NotSolved
01.03.2024 01:44:38 ralf_b
NotSolved
07.03.2024 13:55:59 Gast68178
NotSolved
07.03.2024 22:10:48 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast76420
Datum:
29.02.2024 12:43:40
Views:
137
Rating: Antwort:
  Ja
Thema:
Makro Schleife

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
 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.02.2024 12:49:07 Uwe
NotSolved
27.02.2024 14:22:07 Gast14254
NotSolved
29.02.2024 09:52:50 Gast84775
NotSolved
27.02.2024 17:34:08 ralf_b
NotSolved
Rot Makro Schleife
29.02.2024 12:43:40 Gast76420
NotSolved
01.03.2024 01:44:38 ralf_b
NotSolved
07.03.2024 13:55:59 Gast68178
NotSolved
07.03.2024 22:10:48 ralf_b
NotSolved