ich hoffe ihr könnt mir helfen.
ich habe 3 tab. blätter, die ich in einer schleife für 5-10 sek. nacheinander anzeigen möchte
kann mir jemand mit einem code aushelfen.
besten dank
gruß jens
Sub anzeigen()
Sheets("Tabelle1").Activate
Application.Wait (Now() + TimeSerial(0, 0, 3))
Sheets("Tabelle2").Activate
Application.Wait (Now() + TimeSerial(0, 0, 3))
Sheets("Tabelle3").Activate
End Sub
Sub Dia_Show()
Dim i
For i = 1 To 3
Worksheets(i).Activate
Application.Wait (Now + TimeSerial(0, 0, 5))
Next i
End Sub
Sub Dia_Show()
Worksheets("Tabelle1").Activate
Application.Wait (Now + TimeSerial(0, 0, 5))
Worksheets("Tabelle3").Activate
Application.Wait (Now + TimeSerial(0, 0, 5))
Worksheets("Tabelle11").Activate
Application.Wait (Now + TimeSerial(0, 0, 5))
End Sub
Sub Fünf_Sekunden_zeigen()
Sheets("Tabelle1").Activate
Application.Wait Now + TimeValue("00:00:05")
Sheets("Tabelle2").Activate
Application.Wait Now + TimeValue("00:00:05")
Sheets("Tabelle3").Activate
End Sub
Sub Wechseln()
Dim Anz As Integer
Dim Zeit As Single
Dim Pause As Integer
Dim i As Integer
Anz = Sheets.Count
Pause = 3
i = 1
Do
Sheets(i).Select
Zeit = Timer + Pause
Do While Timer < Zeit
DoEvents
Loop
If i < Anz Then
i = i + 1
Else
i = 1
End If
Loop
End Sub