Office: Mit einen Makro ein Makro in einer anderen Exceldatei starten

User · 26. Mai 2008

Hallo zusammen,

ich habe ein kleines Problem. Ich habe ein Makro in einer Exceldatei geschrieben, dieses Makro soll durch ein Makro aus einer anderen Excel-Datei ausgeführt werden.

Ich habe es schon mit den Befehlen Run bzw. Call versucht, dies hat leider immer nur dann funktioniert, wenn beide Module in einer Excel-Datei waren.

Ich würde mich freuen, wenn mir jemand helfen könnte.

Beste Grüße

Sabine

:)

jinx · 28. Mai 2008

Moin, Sabine,

Code:

Sub start()
Application.Run "AndereMappe.xls!SabinesMakro"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AndereMappe ist die andere geöffnete Mappe, ind er sich das öffentliche Makro SabinesMakro in einem allgemeinen Modul befindet.

NoNet · 28. Mai 2008

Hallo Sabine,

grundsätzlich hattest Du schon den richtigen Ansatz.

Vielleicht hilft Dir dieser Beispiel-Code weiter :

Code:

Sub ExternesMakroStarten()
'28.05.2008, NoNet - www.excelei.de
Dim extWB As Workbook, strExtName As String
Set extWB = GetObject("c:\temp\extern.xls") 'Name der externen Mappe
strExtName = extWB.Name
Application.Run strExtName & "!externesMakro", "Hallo", "Welt" 'Makro mit Parameter-Übergabe
extWB.Close
Set extWB = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Makro in der externen Mappe muss dazu in einem allgemeinen Modul (also z.B. "Modul1") stehen und darf m.E. nicht als PRIVATE deklariert sein ! Es könnte z.B. so aussehen :
Code:

Sub externesMakro(Wert1, Wert2)
'Dieses Makro wird von extern aufgerufen
MsgBox "Die Werte lauten :" & vbLf & Wert1 & vbLf & Wert2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 28. Mai 2008

Hallo ihr beiden!

Ich möchte mich bei euch bedanken und werde morgen beide Ansätze mal ausprobieren, obwohl ich sagen muss der erste scheint einfacher erscheint :-)! Eine Frage habe ich dann aber doch noch. Was ist eigentlich der Unterschied zwischen Call und Run?

Beste Grüße

Sabine

jinx · 28. Mai 2008

Moin, Sabine,

die Übergabe von Parametern - für den Start von externen Prozeduren wird meines Wissens aber immer Application.Run verwendet:

von Objektkatalog Excel97

Call-Anweisung
Übergibt die Steuerung an eine Sub-Prozedur, eine Function-Prozedur oder eine Prozedur in einer Dynamic-Link Library (DLL)).

...

Bemerkungen

Das Schlüsselwort Call muß nicht unbedingt beim Aufrufen einer Prozedur verwendet werden. Wenn Sie jedoch Call verwenden, um eine Prozedur aufzurufen, die Argumente erfordert, müssen Sie die Werte für ArgListe in Klammern einschließen. Wenn Sie das Schlüsselwort Call nicht angeben, sind auch keine Klammern um ArgListe zulässig. Wenn Sie mit Call in einer der beiden Syntaxvarianten eine integrierte oder benutzerdefinierte Funktion aufrufen, wird der Rückgabewert der Funktion verworfen.

Sie können auch ein ganzes Datenfeld an eine Prozedur übergeben, indem Sie den Datenfeldnamen gefolgt von einem leeren Klammernpaar angeben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

von Objektkatalog Excel97

Run-Methode
Syntax 1: Führt ein Makro aus oder ruft eine Funktion auf. Diese Syntax eignet sich zur Ausführung eines Makros, das in Visual Basic oder der Microsoft Excel 4.0-Makrosprache geschrieben wurde, oder zur Ausführung einer Funktion in einer DLL oder XLL.
Syntax 2: Führt das Microsoft Excel 4.0-Makro an der aktuellen Position aus. Der Bereich muß sich in einer Makrovorlage befinden.

...

Anmerkungen

Benamte Argumente können mit dieser Methode nicht verwendet werden. Argumente müssen nach Position übergeben werden.

Die Run-Methode gibt den Rückgabewert des aufgerufenen Makros zurück. Objekte, die als Argumente an das Makro weitergeleitet werden, werden in Werte konvertiert (durch Zuweisung der Value-Eigenschaft an das Objekt). Das heißt, es ist mit der Run-Methode nicht möglich, Objekte an Makros weiterzuleiten.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 20. Februar 2009

Hallo zusammen,

wie änder ich den oberen Code ab, dass es folgende Bedingungen erfüllt:

1) Der Pfad der aktuell geöffneten Datei (von dem aus das externe makro aufgerufen werden soll ) soll ausgelesen und durch "\db\" erweitert werden.

-> der komplette Pfad ist demnach variabel ( zb "C:\meinOrdner\db\temp.xls" )

2) Diese Datei temp.xls ist mit einem Password geschützt

3) In der Datei temp.xls befindet sich das externeMakro welces ausgeführt werden muss.

Mein Code funktioniert leider nicht:
lediglich das "temp.xls" wird unter application.run nicht gefunden. Getcurdir funktioniert und gibt mir den pfad der aktuellen datei wieder

Bedanke mich im Vorraus schonmal für eure Hilfe

Set extWB = New Excel.Application
extWB.Workbooks.Open GetCurDir & "\DB\temp.xls", Password:="xxxxxxx"
extWB.Visible = True

Application.Run "temp.xls" & "!externesMakro"
extWB.Close
Set extWB = Nothing

Office: Mit einen Makro ein Makro in einer anderen Exceldatei starten

Mit einen Makro ein Makro in einer anderen Exceldatei starten

Mit einen Makro ein Makro in einer anderen Exceldatei starten

Mit einen Makro ein Makro in einer anderen Exceldatei starten

Mit einen Makro ein Makro in einer anderen Exceldatei starten - Similar Threads - Makro Makro Exceldatei

Name der Datei durch Excel geändert

Ein Makro für mehrere Register

Makro öffnet unerwartete Datei

Exceldateien öffnen, Makro ausführen, speichern, schließen

Makro in wechselnder Exceldatei zur Serienbrieferstellung

Powerpoint - Makro soll 3 Exceldateien öffen - öffnet aber nur eine !

Exceldatei aus PP per Makro starten (Office 2003)