Office: Workbook_BeforeClose Makro läuft nicht

Hallo zusammen

Ich möchte gerne beim Schliessen einer Excel-Datei einige Zellen in ein anderes Dokument kopieren lassen. Dafür hab ich mit dem Makrorecorder ein Makro erstellt, welches grundsätzlich auch funktioniert.
Füge ich dieses Makro im VBA-Editor in der Arbeitsmappe unter "Workbook BeforeClose" ein, kommt es zu einer Fehlermeldung.

Code:

Beim Schliessen der Datei kommt die Fehlermeldung:
Laufzeitfehler '9': Index ausserhalb des gültigen Bereichs
Im VBA-Editor wird die Zeile
Windows("Abfragetool.xls").Activate
markiert.

Was muss ich bei Workbook_BeforeClose anders machen als bei einem Normalen Code?

Falls es eine Lösung gibt, die Daten ohne Öffnen der anderen Datei zu kopieren, wäre das sogar noch besser *Smilie

Grüsse Richard

:)

 

Hallo Richard,

könnte es evtl daran liegen?
Code:

 

\@Richard:
Stelle den Code hier mal mit Slash / statt Backslash \ ins Forum.
Meinen sieht man nur, weil ich ihn doppelt eingegeben habe.
(Ist ein Fehler der Forensoftware)

Gruß Ralf

 

Nein. Zwischen "G:Transfer" und "Abfragetool.xls" hats einen Backslahs, der wird hier aber nicht dargestellt. Keine Ahnung wieso.
Wie schon geschrieben, der Code funktioniert als normales Makro. Nur wenn ich es beim Schliessen ausführen lassen möchte geht's nicht!?

Code:

Danke für den Hinweis Ralf *top

 

Hallo raeckaert,

ist denn bekannt, in welcher Vba-Zeile er aussteigt. Setze doch mal in die 1. Zeile einen Haltepunkt (F9-Taste) und steppe mit F8 Zeile die Zeilen einzeln durch, oder schreibe ein MsgBox-Befehl vor jeder Vba-Zeile.
Außerdem würde ich mit Objektvariablen arbeiten, den Befehl:
Windows("Abeko 2.2.xls").Activate
habe ich noch nie benutzt, ich öffne die Arbeitsmappen immer so
Set wb_AbTool = Workbooks.Open(Filename:="G:TransferAbfragetool.xls", , False)
Set ws_Chauf = wb_AbTool.Worksheets("Chauffeure")
ws_Chauf.Unprotect
usw.

Gruß von Luschi
aus klein-Paris

 

Wie geschrieben ist bekannt wo er aussteigt:

"Windows("Abeko 2.2.xls").Activate"

Ich hab den Code via Makrorecorder erstellt und so hat er es halt aufgezeichnet.
Aufgrund des Fehlers macht es schon Sinn, dass ich es mit Objektvariablen versuchen sollte. Meine Kenntnisse von VBA sind aber seeehr gering, von daher deine Inputs eher Bahnhof.
Kannst du mir meinen Code umschreiben dass es mit den Variablen funktioniert? Oder ist es auch möglich die Daten zu kopieren ohne die zweite Datei zu öffnen?

 

Hallo raeckaert,

die Excel-Auflistung 'Windows' scheint zum Zeitpunkt der Ereignis-Routine 'Workbook_BeforeClose(Cancel As Boolean)' nicht mehr gültig zu sein.
Deshalb mache es so: Code:

Gruß von Luschi
aus klein-Paris

 

Ich habe versucht den Code umzusetzen. Ich habs sogar fertig gebracht, dass es läuft. Jedoch nur so lange es nicht unter "Workbook BeforeClose" läuft.

Wenn ich den Cursor im Worksheet "Chauffeure" in Zelle "G12" habe, kopiert er die Range "C5:*biggrin.gif*485" einfach auf "G12" im selben Worksheet und nicht ins Workbook "Abfragetool". Warum kopiert er die Zellen nicht in das richtige workbook? Mit wb_Tool.Activate wird dieses ja aufgerufen *confused.gif*

Aber immerhin bekomme ich keine Fehlermeldung mehr *grins

Code:

 

Habs hingekriegt in dem ich den Copy/Paste Code angepasst hab *Smilie

Danke für die Hilfe *top

Code: