Makro "Sub" startet nicht mit "Call" Hilfe!

Sub blättern() index = ActiveSheet.index 'Tabellenblatt 3 überspringen If index = 2 Then index = 0 'Tabellenblatt wechseln Worksheets(index + 1).Activate 'Prozedur nach X Sekunden Application.OnTime Now() + TimeValue("00:00:05"), "blättern" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Piet, vielen Dank für Deine Reaktion. War ein paar Tage mit anderem beschäftigt...

Versuche es möglichst kurz und klar zu beschreiben. Wegen der Verknüpfung zur SQL-Datenbank macht es auch keinen Sinn, die Original-Datei bereitzustellen.

- Tabellenblatt 1 hat einen Bereich mit der SQL-Tabelle, die 1 bis max. 30 Zeilen enthält. (Je nach Aufkommen).

- Aus dieser SQL-Tabelle möchte ich eine auslösende Zelle anwählen, die den Befehl zum Wechseln gibt. (Zelle leer oder nicht leer)

- Tabellenblatt 2 ist komplett identisch mit Tabellenblatt 1 (eine Kopie) , es ist nur nach unten gescrollt.

- Ziel: Die Zeilen 1-14 werden auf Blatt 1, die Zeilen 15-30 auf Blatt 2 dargestellt und sollen wenn nötig im z.B. 10 Sekunden-Takt wechseln.

- Die auslösende Zelle befindet sich demnach irgendwo in Zeile 15, sodass der Befehl zum umblättern dann kommt, wenn Tabellenblatt 2 Daten enthält.

- Wenn nun weider weniger als 15 Zeilen in der SQL-Tabelle sind (auslösende Zelle wieder leer), soll das Wechseln enden und zu Tabellenblatt 1 wechseln.

Vielen Dank schonmal!
Viele Grüße, Patrick

der Prozess startet sich immer wieder selbst.
um das zu stoppen, gibts zwei möglichkeiten:

a) du baust in das makro "blättern" zusätzlich noch die Abfrage ein, ob in der Zelle immer noch "scroll" steht und führst das Application.Ontime nur aus, wenn ja.

b) um den Start eines bereits per Application.Ontime aufgerufenen Befehls zurückzunehmen, kannst du ebenfalls Application.Ontime verwenden, aber in dieser Form:

Application.Ontime Startzeit, Makroname, Schedule:=False

wichtig dabei ist, dass du als Zeit genau die selbe Zeit verwendest, mit der der Startaufruf stattgefunden hat, da Excel sich diese Aufrufe als Kombination von Makroname und Zeit merkt (denn es könnte ja, sein, dass du das Makro um 10:00, 12:00 und 14:00 ausführen lassen willst, und dann aber aus irgendeinem Grund nur den Aufruf für 12:00 zurücknehmen willst)
du musst dir also die Startzeit in einer projektweit gültigen Variable merken.
(eine Variable ist dann projektweit gültig und kann von allen Makros verwendet werden, wenn sie in einem allgemeinen Modul oberhalb der Makros mit Public deklariert wird.

also im Prinzip so:

Option Excplicit

Public Startzeit as Date



Sub Blättern()

... hier der Code

Startzeit = Now + TimeSerial(0, 0, 5)

Application.Ontime Startzeit, "Blättern"

end Sub



Sub BlätternAnhalten()

Application.Ontime Startzeit, "Blättern", Schedule:=False

End Sub

Sub blättern() Index = ActiveSheet.Index 'Tabellenblatt 3 überspringen If Index = 2 Then Index = 0 'Tabellenblatt wechseln Worksheets(Index + 1).Activate 'PProzedur nach X Sekunden Application.OnTime Now() + TimeValue("00:00:05"), "blättern" End Sub

Option Explicit Public Startzeit As Date Sub Blättern() Index = ActiveSheet.Index 'Tabellenblatt 3 überspringen If Index = 2 Then Index = 0 'Tabellenblatt wechseln Worksheets(Index + 1).Activate 'PProzedur nach X Sekunden Application.OnTime Now() + TimeValue("00:00:05"), "blättern" Startzeit = Now + TimeSerial(0, 0, 5) Application.OnTime Startzeit, "Blättern" End Sub Sub BlätternAnhalten() Application.OnTime Startzeit, "Blättern", Schedule:=False End Sub

Beliebteste Forumthreads (12 Monate)

Makro "Sub" startet nicht mit "Call" Hilfe!

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro "Sub" startet nicht mit "Call" Hilfe!

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread