Office: (Office 365) Nach Zeit X auf Blatt springen

Hallo Zusammen,

in einer xlsm Datei habe ich etwa 10 Tabellenblätter.
Wenn z.B Tabellenblatt 4 offen ist werden die zeit gesteuerten Makros nicht gestartet.
Wenn ich dann auf Tabellenblatt 1 wechsle starten die Macros.

Nun meine Frage,ist es möglich das ich einen Automatismus einbaue in dem alle 5 Minuten geprüft wird ob ich auf Tabelle1 bin und wenn nicht dort hin gesprungen wird ?

 

Moin!
Der Fehler ist in Deinem Code, den wir nicht kennen.

Zu der Frage:
DieseArbeitsmappe:

Code:

Private Sub Workbook_Activate()
Application.OnTime Time + TimeSerial(0, 5, 0), "SheetOne"
End Sub

Private Sub Workbook_Deactivate()
Application.OnTime Now, "SheetOne", , False
End Sub

Modul1:

Code:

Sub SheetOne()
If ActiveSheet.CodeName <> "Tabelle1" Then Tabelle1.Activate
End Sub

Gruß Ralf

 

Hallo Ralf,
danke für die Hilfe.
Wenn ich die Datei schließe kommt diese Fehler:

 

Hallo Ralf,
nach dem öffnen der Datei wechsel ich auf einen anderen Sheet als Tabelle1. Dann wird nach der angegebenen Zeit wieder automatisch auf Tabelle 1 gewechselt. Wenn ich dann wieder auf ein anders Blatt wechsele bleibt der Rücksprung auf Tabelle1 aus.

Woran kann das liegen ?

 

Dazu müsste man immer noch Deinen Code kennen!

 

......habe die Probleme soweit gelöst.
Eins bleibt noch.
Und zwar wenn ich auf einem anderen Blatt eine Zelle aktiviere,bedeutet der Curser blinkt darin ,funktioniert der Rücksprung nicht.

Hast Du dafür eine Lösung ?

Danke

 

Nein, weil es sie nicht gibt!
Im Bearbeitungsmodus ist die gesamte Application im Tiefschlaf.
Heißt natürlich auch, dass VBA warten muss bis er beendet ist.

 

Hi,

versuche es mal so - folgenden Code ins Codemodul DieseArbeitsmappe:

Code:

Option Explicit

Private Sub Workbook_Open()
   Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=daEt, Procedure:="Zeitmakro", Schedule:=False
End Sub

Und in ein allgemeines Modul:

Code:

Option Explicit
Public daEt As Date

Sub Zeitmakro()
   If ActiveSheet.Name <> "Tabelle1" Then Worksheets("Tabelle1").Activate
   daEt = Now + TimeValue("00:05:00")
   Application.OnTime daEt, "Zeitmakro"
End Sub

Der Rücksprung erfolgt, sobald du die Zelle verlässt und die Zeitzählung beginnt von da an erneut.

---

 

Hallo Karin,

meine Antwort leider etwas verspätet.