Arbeitsmappenübgreifende Schleifen
18.08.2016 16:43:12
Ole
ich habe ein Problem, dass ich auch bei intensivem Googlen nicht lösen konnte, daher wende ich mich jetzt an die Experten.
Ich habe 2 Workbooks, die ich leider nicht in eine Arbeitsmappe zusammenfassen kann.
Datei1 (WL) ist meine Quelldatei
Datei2 (ESI)ist ein Template
Kurz gefasst soll mein Modul aus Datei 1 folgendes tun:
for i=1 to 6
öffne Datei2
kopiere Werte von Datei 1 nach Datei2, die in jedem Durchlauf variieren
lass das Modul aus Datei2 laufen mit
Application.Run "ESI.xlsm!Exportaufruf" 'Das Modul braucht min 5 Minuten und _
speichert die Datei 2 unter einem generierten Namen (alle 6 Namen sind verschieden) und schließt Datei 2 ohne zu Speichern, damit bleibt das Template unverändert
next
An sich funktioniert alles. Das Problem ist, dass die Schleife nicht mehrfach durchläuft, sondern scheinbar nach dem ersten Application.run abbricht. Das gleiche passiert, wenn ich die die Befehle nicht in einer Schleife, sondern untereinander schreibe. Selbst Haltepunkte die einen 2. Durchlauf prüfen sollen werden nicht aufgerufen. Es gibt keine Fehlermeldung. Als Ergebnis erhalte ich in allen Fällen nur eine von 6 Dateien in meinem Zielordner und Datei 1(WL) ist offen.
Was kann der Grund dafür sein kann, kann mir jemand das erklären?
Fehlt bespw. ein Befehl in Datei2.modul, der wieder Datei1.modul aufruft? Bei letzterem soll der Sprung genau zu der richtige Stelle der Schleife führen.
Hoffentlich kann mir jemand helfen.
Vielen Dank im Voraus!
Beste Grüße
Ole