Pause einbauen in Makro

Hallo zusammen,
durch die Hilfe im Forum habe ich bereits fast das, was ich auch haben möchte. Es geht um folgendes: Ein Makro, das mir verschiedene Excel-Dateien öffnet und das wiederum darin enthaltene Makro ausführt. Soweit funktioniert das auch, nur habe ich das Problem, dass die 5 Excel-Dateien nach dem öffnen Zeit benötigen, um sich selbst zu aktualisieren, das Makro darf also für jede Datei erst nach circa 10 Sekunden ausgeführt werden, sonst werden die generierten Emails mit einem Anhang verschickt, der nicht aktuell ist. Ich möchte also verhindern, alle Dateien erst zu öffnen, auf die Aktualisierung zu warten (geschieht automatisch) und jede separat zu speichern um dann das u.g. Makro auszuführen. Wie bekomme ich die Pause zwischen öffnen der Dateien und ausführen des enthaltenen Makros?
Danke!!!
Grüße Maxi


Public Sub Main()
Call DateiOeffnen("FirmaXY1", "Makro1")
Call DateiOeffnen("FirmaXY2", "Makro2")
Call DateiOeffnen("FirmaXY3", "Makro3")
Call DateiOeffnen("FirmaXY4", "Makro4")
Call DateiOeffnen("FirmaXY5", "Makro5")
End Sub


Public Sub DateiOeffnen(strFilename As String, strMakroname As String)
Const FOLDER_PATH As String = "Ordnerpfad"
Dim objWorkbook As Workbook
Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename)
Call Application.Run("'" & objWorkbook.Name & "'!" & strMakroname)
Call objWorkbook.Close(SaveChanges:=False)
Set objWorkbook = Nothing
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Daniel,
sorry - ich versuche so detailreich wie möglich:
1. Es gibt eine Datei zur Stammdatenpflege von 5 Lieferanten, in die täglich die aktuellen Tageswerte fortlaufend eingetragen werden.
2. Daraus ergeben sich pro Lieferant jeweils eine Excel (in Summe 5), in der eine Pivot-Tabelle ist, die Daten aus Tabelle von Punkt 1. nimmt und daraus Grafiken über die aktuellen Tageswerte erstellt. Diese Grafiken / Pivot-Tabelle aktualisiert sich automatisch beim Öffnen der jeweiligen Datei, der Haken bei "Aktualisieren beim Öffnen der Datei" ist gesetzt.
Problem: Wenn ich mit meinem gezeigten Makro die 5 Excel-Dateien öffne, aktualisieren sie sich leider nicht mehr automatisch, sondern bleiben auf dem letzten Speicherstand (ab dem Tag an dem ich zuletzt manuell abgespeichert habe)
Hoffe so ists verständlicher ;)

Code: [Cc] Public Sub DateiOeffnen(strFilename As String, strMakroname As String) Const FOLDER_PATH As String = "Ordnerpfad" Dim objWorkbook As Workbook Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, UpdateLins:=3) Call Application.Run("'" & objWorkbook.Name & "'!" & strMakroname) Call objWorkbook.Close(SaveChanges:=False) Set objWorkbook = Nothing End Sub

Public Sub Main() Call DateiOeffnen("FirmaXY1", "Makro1") Call DateiOeffnen("FirmaXY2", "Makro2") Call DateiOeffnen("FirmaXY3", "Makro3") Call DateiOeffnen("FirmaXY4", "Makro4") Call DateiOeffnen("FirmaXY5", "Makro5") End Sub

Public Sub DateiOeffnen(strFilename As String, strMakroname As String) Const FOLDER_PATH As String = "Ordnerpfad" Dim objWorkbook As Workbook Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, UpdateLinks:=3) Call Application.Run("'" & objWorkbook.Name & "'!" & strMakroname) Call objWorkbook.Close(SaveChanges:=False) Set objWorkbook = Nothing End Sub

Code: [Cc] Public Sub DateiOeffnen(strFilename As String, strMakroname As String) Const FOLDER_PATH As String = "Ordnerpfad" Dim objWorkbook As Workbook Set objWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename, UpdateLinks:=3) Call objWorkbook.RefreshAll Call Application.Run("'" & objWorkbook.Name & "'!" & strMakroname) Call objWorkbook.Close(SaveChanges:=False) Set objWorkbook = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread