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