sheets anzeigen

Forumthread: sheets anzeigen

sheets anzeigen

12.07.2004 11:40:00

jede029

hallo
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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: sheets anzeigen

12.07.2004 11:45:19

Matthias
AW: sheets anzeigen

Ramses
AW: sheets anzeigen

12.07.2004 11:53:14

jede029
AW: sheets anzeigen

Holger
AW: sheets anzeigen

Frank

AW: sheets anzeigen

12.07.2004 11:45:19

Matthias

Hallo Jens,
z.B. so:


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

Du kannst halt in der Zeilt nix an Excel machen.
Gruß Matthias

AW: sheets anzeigen

Ramses

Hallo
das sollte so gehen


Sub Dia_Show()
Dim i
For i = 1 To 3
Worksheets(i).Activate
Application.Wait (Now + TimeSerial(0, 0, 5))
Next i
End Sub

oder wenn die Tabellen nicht in einer Reihe von 1 - 3 liegen


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

Gruss Rainer

AW: sheets anzeigen

12.07.2004 11:53:14

jede029

Ich danke Euch
Gruß jens

AW: sheets anzeigen

Holger

Hallo Jens


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

Gruß Holger

AW: sheets anzeigen

Frank

Hallo Jens,
oder so:


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

Hier kann man auch während des Vorgangs in Excel was machen. Allerdings bricht die Schleife ab, wenn die Bearbeitung beispielsweise einer Zelle länger dauert als die Zeit zum Wechseln der Blätter. Ich habe hier mal 3 Sekunden eingestellt. Wenn Du also z.B. eine Eingabe machst, die länger als 3 Sekunden dauert, bricht der Vorgang ab und müßte dann neu gestartet werden. Dauert die Eingabe weniger lange als diese 3 Sekunden gehts weiter.
MfG
Frank

Beliebteste Forumthreads (12 Monate)

Forumthread: sheets anzeigen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread