Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige