Problem bei Datenübernahme aus Quelldate
15.02.2021 15:42:35
J.-P.
ich habe mal wieder ein Problem...
Ich möchte in mein Sheet Daten aus einer anderen Datei übernehmen, eigentlich läuft es auch, nur dass in meinem Ergebnisssheet die falschen Zellen eingetragen wird, also um eine verschoben. Ich vermute, das liegt daran dass in der Quelldatei e1 & f1 verbunden sind, darauf habe ich aber keinen Einfluss.
Hat jemand eine Idee?
Sub Test2()
Dim Wb As Workbook
Dim Dest As Range
Dim Fname As String
Fname = Application.GetOpenFilename
Set Dest = Range("e1:g1")
Set Wb = Workbooks.Open(Fname, False, True)
Wb.Worksheets(1).Range("e1:g1").Copy Dest
Wb.Close
End Sub
J.-P.
Anzeige