VBA: Ext. Makro, Datei schließen, Makro bricht ab?
09.09.2016 15:31:59
Nils
ich habe zwei Dateien:
Folgenden Code führe ich in Zieldatei.xlsm aus und starte am Ende das externe Makro "Test" aus Script.xlsm
Datei Zieldatei.xlsm:
Sub VerschiebenIntern()
Dim Folder_Script, File_Script, Folder_Target, File_Target As String
Folder_Script = "C:\Users\z002zw9d\Desktop\Results_ME_HLTT\Testumgebung\"
File_Script = "Script.xlsm"
Folder_Target = ActiveWorkbook.Path & "\"
File_Target = ActiveWorkbook.Name
' Script öffnen,
Workbooks.Open Filename:=Folder_Script & File_Script
' Folder_Target & File_Target abspeichern
Range("C10") = Folder_Target
Range("C11") = File_Target
' und dessen Makro ausführen
Application.Run "'" & File_Script & "'!Test"
End Sub
In Script.xlsm wird Zieldatei.xlsm geschlossen (muss), ab dem Zeitpunkt bricht allerdings das Makro Test ab und stellt seine Dienste ein. Zu dessen letzten beiden Code-Zeilen kommt es nicht mehr (MsgBox Folder_Target und MsgBox File_Target)Datei Script.xlsm:
Sub Test()
Dim Folder_Target, File_Target As String
If Range("C10") "" And Range("C11") "" Then
Folder_Target = Range("C10")
File_Target = Range("C11")
Else
MsgBox "LEER!"
End If
Workbooks(File_Target).Close savechanges:=False
MsgBox Folder_Target
MsgBox File_Target
End Sub
Wie kann ich das Makro Test weiter laufen lassen? Es soll nicht abbrechen, auch wenn ich die Zieldatei.xlsm schließe...Vielen Dank für jede Hilfe!
Grüße
Nils