3 tabellen mit makro (auto_open) per vba starten

Forumthread: 3 tabellen mit makro (auto_open) per vba starten

27.03.2009 12:56:55

Yusuf

Hi,
ich habe folgendes Problem und komme nicht zu einer Loesung.
Ich oeffne von einem Arbeitsblatt aus drei weitere Arbeitsblaetter, welche Makros enthalten, die beim oeffnen der Arbeitsblaetter gestartet werden.
So sieht der nacheinander aufruf der Arbeitsblaetter aus.
Das Ergebnis ist jedoch, dass beim zweiten das enthaltene Makro nicht ausgefuehrt wird.
die Reihenfolge ist irrelevant. Es ist immer das zweite Arbeitsblat dessen Makro nicht gestartet wird.
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\ST.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("ST.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\PE.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("PE.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\DesktopHM+HD.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("HM+HD.xls").Close
Zur Zeit umgehe ich dieses Problem so, das ich das zweite und dritte Arbeitsblatt, jeweils zweimal hintereinander aufrufe.
Da ich aber nicht weiss wodurch das Problem verursacht wird kann ich mir nicht sicher sein, das meine Notloesung immer fehlerfrei arbeiten wird.
Vielleicht kennt jemand ja das Problem udn kann mir behilflich sein.
Vielen Dank im voraus.
Gruß
Yusuf
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\ST.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("ST.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\PE.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("PE.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\PE.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("PE.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\DesktopHM+HD.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("HM+HD.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\DesktopHM+HD.xls").RunAutoMacros Which:=xlAutoOpen
Workbooks("HM+HD.xls").Close

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 3 tabellen mit makro (auto_open) per vba starten

27.03.2009 17:53:28

fcs

Hallo Yusuf,
ich tippe, dass einen Konflikt gibt zwischen Ausführung des Hauptmakros und den 3 Autorun-Makros.
Excel kann ja immer nur Makros sequentiell abarbeiten. Die Makros in den anderen Dateien laufen aber eigentlich unabhängig vom Hauptmakro.
Versuche die Mappen mal zeitgestaffelt zu öffnen.
Gruß
Franz


Sub MappenOeffnen()
Dim Zeit As Date
Zeit = Now
'Mappen zeitlich gestaffelt öffnen, Zeiten anpassen an die Laufzeit der Automakros
Application.OnTime earliesttime:=Zeit + TimeSerial(0, 0, 1), procedure:="ST_oeffnen"
Application.OnTime earliesttime:=Zeit + TimeSerial(0, 0, 8), procedure:="PE_oeffnen"
Application.OnTime earliesttime:=Zeit + TimeSerial(0, 0, 16), procedure:="HM_HD_oeffnen"
Application.OnTime earliesttime:=Zeit + TimeSerial(0, 0, 24), procedure:="HM_HD_schliesen"
End Sub
Sub ST_oeffnen()
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\ST.xls").RunAutoMacros _
Which:=xlAutoOpen
End Sub
Sub PE_oeffnen()
Workbooks("ST.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\Desktop\PE.xls").RunAutoMacros _
Which:=xlAutoOpen
End Sub
Sub HM_HD_oeffnen()
Workbooks("PE.xls").Close
Workbooks.Open(Filename:="C:\Documents and Settings\DesktopHM+HD.xls").RunAutoMacros _
Which:=xlAutoOpen
End Sub
Sub HM_HD_schliesen()
Workbooks("HM+HD.xls").Close
End Sub

AW: 3 tabellen mit makro (auto_open) per vba starten

30.03.2009 09:34:02

Yusuf

Hallo,
bitte entschuldige, dass ich mich jetzt erst melde.
Ich kann nur waehrend der Arbeit mit den o.g. Makros arbeiten und nicht von Zuhause aus.
Vielen Dank fuer dein Vorschlag, jedoch ueberspringt er bei deiner Variante den zweiten aufruf komplett.
Gruß
Yusuf

AW: 3 tabellen mit makro (auto_open) per vba starten

30.03.2009 14:11:40

fcs

Hallo Yussuf,
ich hab das gestaffelte Starten der Dateien probiert.
Grundsätzlich funktioniert es.
Es gibt aber ein Problem, wenn die Ausführung des Automakros der 1. Datei noch nicht abgeschlossen ist, wenn die 2. Datei geöffnet werden soll.
Du muss also ggf. die Zeiten für das Öffnen der Dateien anpassen.
In meinem Beispiel reichen die 7 Sekunden für die 1. Datei ggf. nicht.
Gruß
Franz

AW: 3 tabellen mit makro (auto_open) per vba starten

31.03.2009 12:17:46

Yusuf

Hallo Franz,
vielen Dank nochmals fuer deine hilfe.
Das kann natuerlich der Fehler sein.
Ich bin davon ausgegangen das der Code sequentiell abgearbeitet wird, denn dann koennte das naechste Arbeitsblatt noch nicht aufgerufen werden, solange das Programm im Makro des ersten Arbeitsblattes haengt.
Ich werde das mit langeren delays probieren.
Gruß
Yusuf

Beliebteste Forumthreads (12 Monate)

3 tabellen mit makro (auto_open) per vba starten

Forumthread: 3 tabellen mit makro (auto_open) per vba starten

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3 tabellen mit makro (auto_open) per vba starten

Forumthread: 3 tabellen mit makro (auto_open) per vba starten

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread