Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

3 tabellen mit makro (auto_open) per vba starten

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

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

Betreff
Datum
Anwender
Anzeige
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


Anzeige
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
Anzeige
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige