Application.OnTime in mehreren offenen Dateien?

Sub Aufruf() Dim gdatZEIT As Date Application.DisplayAlerts = False Call ODBC_Verbindung_Refresh Call Diagramm_einblenden Sheets(3).Select gdatZEIT = Now + Range("C23") Application.OnTime gdatZEIT, "Aufruf" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Aufruf() Dim gdatZEIT As Date Dim wb As Workbook Set wb = ThisWorkbook Application.DisplayAlerts = False Call ODBC_Verbindung_Refresh Call Diagramm_einblenden wb.Activate wb.Sheets(3).Select gdatZEIT = Now + wb.Worksheets(1).Range("C23") Application.OnTime gdatZEIT, "Aufruf" End Sub

Hallo Franz,
vielen Dank für deine schnelle Antwort.
Es funktioniert jetzt einwandfrei, dass alle stabil parallel laufen und sich aktualisieren.
allerdings habe ich mir jetzt ein neues Problem eingehandelt:
Wenn ich eine Datei schließe (oder auch alle) und Excel noch offen ist, öffnen sich die Dateien wieder von selbst nach dem angegebenen Intervall.
Dass das mit Application.Ontime zusammenhängt, ist mir auch klar. Ich hatte in den Einzeldateien auch einen Code-Teil zum Beenden mit drin, aber dieser funktioniert nicht mehr.

Sub Stop()
Dim gdatZEIT As Date
On Error Resume Next
If IsEmpty(gdatZEIT) Then Exit Sub
Application.OnTime _
earliesttime:=gdatZEIT, _
procedure:="Aufruf", schedule:=False
End Sub

Auch wenn ich das um folgenden Block erweitere, funktioniert es nicht:

Sub Stop()
Dim gdatZEIT As Date
Dim wb As Workbook
Set wb = ThisWorkbook
Application.DisplayAlerts = False
wb.Activate
On Error Resume Next
If IsEmpty(gdatZEIT) Then Exit Sub
Application.OnTime _
earliesttime:=gdatZEIT, _
procedure:="Aufruf", schedule:=False
End Sub

Der Code wird dann über folgendes Makro, dass ich zum Schließen nicht im Modul sondern in der Arbeitsmappe habe aufgerufen:
"PrivateSubWorkbook_BeforeClose(Cancel As Boolean)"

Sub x()' wenn ich privatesubworkbook hier hin schreibe, werden die anderen beiden Codes nicht  _
mehr fürs Forum formatiert?!
Dim wb As Workbook
Set wb = ThisWorkbook
Application.DisplayAlerts = False
wb.Activate
On Error Resume Next
Application.DisplayAlerts = False
Call Stop
ActiveWorkbook.Save
End Sub

Wo liegt mein (Denk-)Fehler?
wäre super, wenn mir nochmal jemand auf die Sprünge helfen kann.
Grüße
Mathias

'Code in einem allgemeinen Modul Option Explicit Public gdatZEIT As Date Sub Stop_Ontime() On Error Resume Next If IsEmpty(gdatZEIT) Then Exit Sub Application.OnTime _ earliesttime:=gdatZEIT, _ procedure:="Aufruf", schedule:=False End Sub Sub Aufruf() Dim wb As Workbook Set wb = ThisWorkbook Application.DisplayAlerts = False Call ODBC_Verbindung_Refresh Call Diagramm_einblenden wb.Activate wb.Sheets(3).Select gdatZEIT = Now + wb.Worksheets(1).Range("C23") Application.OnTime gdatZEIT, "Aufruf" End Sub

Guten Morgen!
Vielen Dank für die neuerliche Hilfe. Ich kam noch nicht dazu es umzusetzen, aber es wird schon klappen. Ich melde mich, auch da ich noch eine zweite Prozedur "Slideshow" einbauen werde.

Sub Auto_Slideshow()
Dim chrt As Chart
For Each chrt In ThisWorkbook.Charts
chrt.Activate
Application.Wait Now + TimeSerial(0, 0, 6)
Next
End Sub

Da sich die Dateien "nur" alle 30-60min aktualisieren lassen, soll in der Zwischenzeit alle x Sekunden (momentan 6) die Diagramme nacheinander eingeblendet werden.
Mein Ansatz, den ich verfolgen werden ist irgend etwas in Richtung "do until" und wieder auf den gdazeit-Faktor einzugehen. Ich bastel mal alles zusammen und schreibe dann wieder.
Grüße
Mathias

Beliebteste Forumthreads (12 Monate)

Application.OnTime in mehreren offenen Dateien?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Application.OnTime in mehreren offenen Dateien?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread