Microsoft Excel

Herbers Excel/VBA-Archiv

Makro in anderer Datei mit "with" starten


Betrifft: Makro in anderer Datei mit "with" starten von: Björn
Geschrieben am: 29.09.2017 08:55:58

Hallo,

ich habe folgende Herausforderung:
In einer Arbeitsdatei werden Daten ermittelt und in eine sich ändernde Zieldatei übertragen. Nun soll nach einem Teil der Übertragung ein Makro in der Zieldatei ausgeführt und danach die restlichen Daten übertragen werden. Die Übertragung der Daten funktioniert, hier mittels with

Leider schaffe ich es nicht, das Makro "Berechnung" in der Zieldatei mit with auszuführen, hier mein Versuch

chDrive ThisWorkbook.Path

strsource = Application.GetOpenFilename(FileFilter:="Excel-Files (*.xlsm;*.xlsb),*.xlsm;*.xlsb", Title:="select file")

On Error Resume Next

If strsource <> CStr(False) Then
Set objWB = Workbooks.Open(filename:=strsource)
strcode = 0
With objWB
With .Sheets("Input")
.Range("a18").Resize(UBound(PayMS)) = Application.Transpose(Data1)
.Range("b18").Resize(UBound(CCurrency)) = Application.Transpose(Data2)
.Application.Run (Berechnung)
.Range("d178").Resize(UBound(Datum2)) = Application.Transpose(Data3)
End With
End With

Vielleicht kann mir jemand helfen, danke.

Gruß

Björn

  

Betrifft: AW: Makro in anderer Datei mit "with" starten von: Peter(silie)
Geschrieben am: 29.09.2017 09:16:56

Hallo,

müsste glaube ich so gecalled werden:

 Application.Run ("Workbook_Name.xlsm!Makro_Name") 



  

Betrifft: AW: Makro in anderer Datei mit "with" starten von: RPP63
Geschrieben am: 29.09.2017 09:17:24

Moin!
Teste mal:

Application.Run "'" & objWB.Name & "'!Berechnung"
Gruß Ralf


  

Betrifft: AW: Makro in anderer Datei mit "with" starten von: Luschi
Geschrieben am: 29.09.2017 09:26:10

Hallo Björn,

wenn 'With' unbedingt dabei sein soll. dann so:

With objWB
   Application.Run "'" & .Name & "'!Berechnung"
End With
Weitere Infos siehe: https://www.rondebruin.nl/win/s9/win001.htm

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Makro in anderer Datei mit "with" starten von: Björn
Geschrieben am: 29.09.2017 11:58:30

Hallo Ralf,

vielen dank, alles funktioniert!!!

:-)

Gruß

Björn


Beiträge aus den Excel-Beispielen zum Thema "Makro in anderer Datei mit "with" starten"