Hallo Volti
Also ich habe jetzt immer wieder probiert und versucht durch anpassen das Problem zu lösen.
Ich habe es nicht geschafft.
Entweder ich bekomme Fehlermeldungen oder beim Schließen den Blacklist schließst sich die Mappe 2.
Die Fehler sind manigfaltig. Ich würde dir gerne 2 Tabellen zukommen lassen. damit du es einmal selbst probieren kannst.
Wohin könnte ich es hochladen, damit du darauf zugreifen kannst?
Ich versuche die ganze Zeit die Datei mit allen Sheets in die Mappe2 (Name immer anders => Set ZWB = ActiveWorkbook) einzufügen.
Das soll er mit der geschlossenen Arbeitsmappe tun.
Das esr sie dazu öffnen muss ist klar.
Wenn sie aber schon offen ist, kommt es zum Fehler.
Daher mein Gedanke, das ich die Mappe vorher schließen muss. Dabei kann ich nochmal überprüfen, ob er sie speichern soll oder ohne speichern schließen oder ob ich sie noch anpassen möchte.
Wenn ich die Datei Blacklist geschlossen habe (was in 80% ist) soll die Datei geöffnet, komplett alle sheets in die Mappe2 eingefügt und wieder geschlossen werden.
Dies hatte ich schon einmal Realisiert für ein einzelnes Sheeet.
'Nur wenn oben nicht funktioniert, einzele Sheets kopieren
Set QWB = Workbooks.Open("C:\Test\Blacklist Test.xlsx")
QWB.Worksheets("Blacklist").Cells.Copy
With ZWB
.Sheets.Add After:=.ActiveSheet
.ActiveSheet.Name = "Blacklist"
.ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
Application.CutCopyMode = False
End With
QWB.Close False ' Schlie?en der Blacklist
Set QWB = Nothing
Nun wollte ich alle Sheets einfügen.
Wenn die Datei Blacklist geöffnet ist gibt es 3 Möglichkeiten:
If MsgBox("Blacklist Test schlie?en?", vbYesNo) = vbYes Then XXXXXXX
1. Nein: Ich möchte sie weiter bearbeiten, und das Makro automatisch beenden. => Goto ende
Bei ende wird erst noch wieder die Sicht usw. eingeschaltet und dann End sub.
2. Ja: ich möchte die Datei ohne speichern schließen und drücke auf das X obe rechts.
hier hatte ich das Fehlverhalten des Makros, das ich bei Blacklist auf das X geklickt habe und Excel mir die Datei Mappe2 schließen will.
3. Ja: ich möchte die Datei speichern und dann schließen.
Hier bricht das Makro immer ab, was für mich auch OK wäre. Dann muss ich es eben neu starten, wenn Blacklist geschlossen ist.
Wenn ich die Datei geschlossen habe möchte ich entweder das Makro neu starten oder (lieber) mit Kopieren beginnen. je nachdem was leichter zu Programmieren ist.
Ich hoffe ich habe dich jetzt nich zu sehr erschreckt, ich habe nur versucht sehr ausführlich zu beschreiben, wie es funktionieren sollte.
Sag mir bitte noch wohin ich die Datei ohne große Anmeldung hochladen kann.
Danke
|