Office: (Office 2013) Auto. kopieren einer Range von einem Workbook in ein anderes - unterschiedliche Pfade

Liebes Forum,

ich möchte gerne von einer Quelldatei "Quelldatei.xlms" aus dem Sheet "Quelldatei" eine bestimmte Range kopieren(mit "usedrange.rows.count" Anweisung, da die Range dynamisch sein kann) und in eine andere Range (F3) der Zieldatei "Zieldatei.xlms" Sheet "Zieldatei" einfügen. Die zu kopierenden Zellen der Quelldatei enthalten Zahlenwerte und Formeln, die bearbeitet und verändert werden. Formeln und Zahlenwerte sollen in der Zieldatei übernommen werden.

Ziel- und Quelldatei liegen in unterschiedlichen Orten, bzw. auf zwei verschiedenen Laufwerken. Die Zieldatei soll sich automatisch beim Öffnen mit den geänderten Werten in der Quelldatei aktualisieren.

Ich habe versucht, dies über eine MicrosoftQuery zu lösen, jedoch werden dann keine Formeln übernommen, sondern nur Werte kopiert. Außerdem kann ich die Tabellenformatierung nicht gebrauchen.

Kann mir jemand helfen?

Vielen Dank
Nelspruit

 

Hallo zusammen,

ich habe etwas zusammenfrickeln können, das funktioniert. Der Code ist in dem Worksheet der Zieldatei untergebracht.
Das herumkopieren funktioniert, einzig das automatische Update versuche ich noch zu lösen.

Sub Zieldate_Update()
Dim SWB As Workbook 'Quellen-Workbook
Dim DWB As Workbook 'Ziel-Workbook
Dim lngrow As Long

Workbooks.Open "R:\Pfad\Dateiname.xlsm"
Set SWB = Workbooks("QuellenDateiname.xlsm")
Set DWB = ThisWorkbook
Dim SWS As Worksheet
Dim DWS As Worksheet
Set SWS = SWB.Worksheets("Sheet1")
Set DWS = DWB.Worksheets("Ziel")
lngrow = SWS.UsedRange.Rows.Count
SWS.Range("E2:U" & lngrow).Copy Destination:=DWS.Range("E2")
Workbooks("QuellenDateiname.xlsm").Close
End Sub

Liebe Grüße
Nelspruit