Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro aus einer anderen Datei starten

Makro aus einer anderen Datei starten
06.10.2014 01:36:45
Falo
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro aus einer anderen Datei starten
06.10.2014 06:06:34
Luschi
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

AW: Makro aus einer anderen Datei starten
06.10.2014 13:36:21
Falo
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

Anzeige
AW: Makro aus einer anderen Datei starten
06.10.2014 14:04:47
Luschi
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

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige