Makro in anderem Wbk starten

Hallo Zusammen,
ich habe folgende Aufgabe:
- in einer Mappe stehen Links zu verschiedenen Excel-Dateien (Quelle)
- die Inhalte dieser Quellen sollen jeweils in einer neuen Excel-Vorlage übertragen und gespeichert werden
- in der Vorlage gibt es ein Makro, das auf die bereits geöffnet Quelle zugreift, alle Daten in die Vorlage schiebt , unter einem neunen Namen speichert und sich sowie die Quell-Datei schließt
- ab da gehts zum nächsten Link (Quelle öffnen, Vorlage öffnen, Makro, ...) bis alle Links durch sind
Mein Problem ist, dass ich zwar alle Dateien geöffnet bekomme (Quelle und Vorlage) aber das Makro aus der Vorlage nicht startet. Ich habe dieses Makro in der Vorlage unter 'DieseArbeitsmappe' in 'Private Sub Workbook_Open()' eingebunden.
Die Quelle und die Vorlage rufe ich mit
Workbooks.Open Filename:=sFile ' Quelle
Workbooks.Open Filename:=pFile ' Vorlage
auf.
Wenn ich die Vorlage mit der 'Hand' öffnen und 'Private Sub Workbook_Open()' manuell starte funktioniert alles.
Gibt es die Möglichkeit über den 'open'-Befehl auch gleich ein Makro mit zu starten?
Habt Ihr vielleicht eine Idee?
Danke im Voraus
Günter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karin,
danke für Deinen Hinweis.
Ich habe meinen Aufruf wie Du angegeben hast umgebaut
Die komplette Routine sieht jetzt so aus:

Sub start() Dim Patch As String Dim Pfad As String Dim pFile As String Dim sFile As String Pfad = Worksheets("Parameter").Cells(5, 2).Value Patch = Worksheets("Parameter").Cells(6, 2).Value pFile = Pfad & "\" & Patch If Dir(pFile) = "" Or pFile = "" Then MsgBox "Patch-Datei " & vbNewLine & sFile & vbNewLine & _ " wurde nicht gefunden oder ist nicht angegeben!" Exit Sub End If sFile = "c:\Test\Beispiel.xls" Workbooks.Open Filename:=sFile Workbooks(pFile).Application.Run (pFile & "!Auto_start") End Sub

Ich bekommen bei Workbooks(pFile).Application.Run (pFile & "!Auto_start") einen Lauzeitfehler '9' mit 'Index außerhalb des gültigen Bereichs'.
Was ist der Grund?
Gibt es auch die Möglichkeit, beim Aufruf des Makros Parameter zu übergeben [z.B. ' Auto_start("ja")]?
Gruß
Günter

Sub start() Dim Patch As String Dim Pfad As String Pfad = Worksheets("Parameter").Cells(5, 2).Value Patch = Worksheets("Parameter").Cells(6, 2).Value pFile = Pfad & "\" & Patch If Dir(pFile) = "" Or pFile = "" Then MsgBox "Patch-Datei " & vbNewLine & sFile & vbNewLine & _ " wurde nicht gefunden oder ist nicht angegeben!" Exit Sub End If sFile = "c:\Test\Beispiel.xls" Workbooks.Open Filename:=sFile Workbooks.Open Filename:=pFile ' Öffnen hinzugefügt! Workbooks(Patch).Application.Run ("'" & Patch & "'" & "!Auto_start") ' "'" hinzugefügt und nur noch Wbk-Name ohne Pfad angegeben End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread