Ausführung zeitgesteuerter Makros verhindern
29.01.2020 11:11:17
Christian
als EXCEL-Autodidakt habe ich mehrere Dateien erstellt, die per Makro (update) in einem bestimmte Zeitintervall die Verknüpfung zu einer auf dem Firmenserver liegenden Datei aktualisieren.
Workbooks("Allround.xls").UpdateLink Name:="S:\Gemeinsame Dateien\DB.xlsm", Type:=xlExcelLinks
Dann wird der Zeitpunkt für die nächste Makroausführung festgelegt:
nextupd = Workbooks("A.xls").Worksheets("B").Cells(1, 3).Value + TimeValue("00:05:10")
und dieser Makro wird zum nächsten Termin wieder aufgerufen
Application.OnTime TimeValue(nextupd), "update"
Das funktioniert alles ganz prima.
Besonderheit bei dieser Datei ist, dass sie beim Schließen nicht gespeichert werden soll.
ThisWorkbook.Close SaveChanges:=False
Wenn ich jetzt aber diese Datei schließe, wird der Makro zum Termin nextupd wieder ausgeführt, wobei sich die Datei wieder öffnet.
Hat jemand eine Idee, wie man das verhindern kann. Am liebsten wäre mir ein Code unter
Private Sub Workbook_BeforeClose
Jetzt schon vielen Dank fürs Gedankenmachen
Gruß
Christian