Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Makro aus einer anderen Datei starten

Betrifft: Makro aus einer anderen Datei starten von: Falo
Geschrieben am: 06.10.2014 01:36:45

Hallo zusammen, kann mir einer bei meinem Problem helfen.
ich lese den pfad der Datei aus, der Tab. System A5 aus. Und möchte das Macro(Berechnen)ausführen, kann mir einer einen Tipp geben.

Mit freundlichen Grüßen aus dem Sauerland.
Olaf

Private Sub DateiÖffnenP1_Click()
Dim Pfad As String
Pfad = ActiveWorkbook.Worksheets("System").Range("A5").Value
Workbooks.Open Filename:=Pfad
End Sub

  

Betrifft: AW: Makro aus einer anderen Datei starten von: Luschi
Geschrieben am: 06.10.2014 06:06:34

Hallo Olaf,

in der Excel 2003-Vba-Hilfe gibt es für den Fall folgendes Beispiel:

mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)
MsgBox "Macro result: " & mySum

wobei '1' & '5' Übergabeparameter an die Funktion 'My_Func_Sum' der geöffneten Datei 'MYCUSTOM.XLM' sind.

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Makro aus einer anderen Datei starten von: Falo
Geschrieben am: 06.10.2014 13:36:21

Hallo Luschi,
ich bekomme eine Fehlermeldung 1004 siehe unten

Private Sub DateiÖffnenP1_Click()

Dim Pfad As String
Pfad = ActiveWorkbook.Worksheets("System").Range("A5").Value
Workbooks.Open Filename:=Pfad
Application.Run "Pfad!Berechnen(""Das ist ein Test"")"  ' hier bekomme ich eine  _
Fehlermeldung 1004 das er die Datei Pfad.xls nicht kennt das ist doch eine Variabel die Datei wird vorher durch
Workbooks.Open Filename auch geöffnet also ist die Variable auch richtig  was kann das sein das  _
er die Variabel nicht auslesen kann
End Sub

Mit freundlichen Grüßen aus dem Sauerland
Olaf


  

Betrifft: AW: Makro aus einer anderen Datei starten von: Luschi
Geschrieben am: 06.10.2014 14:04:47

Hallo Olaf,

versuch es mal so:

Dim wbActive As Workbook
Pfad = ActiveWorkbook.Worksheets("System").Range("A5").Value
Set wbActive = Workbooks.Open(Filename:=Pfad)
Application.Run wbActive.Name & "!Berechnen", "Das ist ein Test"

- Pfad enthält Laufwerk/Verzeichnis/Dateiname
- Application.Run erwartet nur den Namen der gerade geöffneten Arbeitsmappe ohne LW/Pfad


Gruß von Luschi
aus dem sonnigen Klein-Paris


 

Beiträge aus den Excel-Beispielen zum Thema "Makro aus einer anderen Datei starten"