VBA Range von Datei zu Datei kopieren

Question

Hallo!

ich arbeite seit Tagen an einem längeren Code, komme nun aber an
einer Stelle nicht weiter, die ich eigentlich für "einfach" hielt.

Ich möchte ein paar Zellen von einem Tabellenblatt einer Datei in ein
Tabellenblatt einer anderen Datei kopieren.

Hier der Auszug meines Codes:

Windows("Timeplan draft.xlsm").Activate
Sheets("Input form").Select
Range(Cells(3, 1), Cells(8, 1)).Select
Selection.Copy
Windows("testfile.xls").Activate
Sheets("testfile").Select
Range(Cells(2, 1)).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Bei "Range(Cells(2,1)).Select" wählt er die Zelle A2 in der Datei
"Timeplan draft.xlsm" aus und nicht wie er eigentlich soll die
"testfile.xls". Könnt ihr mir vielleicht weiterhelfen und sagen wieso?

Bin für jede Hilfe dankbar.
Beste Grüße,
critchm

Answer 1

ich hätte es ja so geschrieben.
Workbooks("Timeplan draft.xlsm").Sheets("Input form").Range(Cells(3, 1), Cells(8, 1)).Copy _
Workbooks("testfile.xls").Sheets("testfile").Range(Cells(2, 1))
beide Dateien sind auf?

Gruß Hajo

Answer 2

Hallo Hajo,

ja, beide Dateien sind auf.
Ich habe auch deinen Vorschlag getestet.
Er macht das trotzdem immer noch so.
Als würde die Anweisung für die andere Datei einfach ignoriert werden.

Noch eine Idee?

Besten Gruß,
critchm

Answer 3

With Workbooks("Timeplan draft.xlsm").Sheets("Input form")
.Range(.Cells(3, 1),. Cells(8, 1)).Copy _
Workbooks("testfile.xls").Sheets("testfile").Cells(2, 1)
End With

Gruß Hajo

Answer 4

Hallo Hajo,

vielen Dank für deine Hilfe.

Ich habe es jetzt so gemacht (nach längerem suchen im Internet :D):

Windows(fileName).Activate
Sheets("Input form").Select
ActiveSheet.Range(Cells(3, 1), Cells(highestrowNumber, 1)).Copy
Destination:=Workbooks(newfileName).Worksheets(projectName).C
ells(2, 1)

Gleichzeitig habe ich mich aber dazu entschieden, erstmal alles in
einem anderen Tabellenblatt in der selben Datei auszuführen und
das Tabellenblatt dann einfach am Ende in eine neue Datei zu
kopieren.
Bei den nächsten Anweisungen hat er nämlich wieder einfach alles
in der Ursprungsdatei gemacht :(. So hoffe ich das Problem
umgehen zu können.

Vielen Dank nochmal!

Gruß critchm

Answer 5

select usw. ist in VBA zu 99,9% nicht notwendig.
Du hättest doch schreiben können das DCu keine Lösung mehr haben willst, dann hätte ich die Zeit für was anderes investiert.

Gruß Hajo