Office: VBA Paste funktioniert nicht

Hallo liebe Community,

ich habe ein Problem und komme einfach nicht auf eine Lösung.
Mein Makro, dass ich geschrieben habe, soll einen bestimmten Bereich an Zellen aus einer anderen Datei auslesen und diesen in mein Workbook kopieren wo das Makro gestartet wird.
Eigentlich ganz einfach mit copy und paste zulösen habe ich gedacht.
Das Einfügen funktioniert aber nicht!!!

Wenn ich das Makro starte bekomme ich etwas in den Zwischenspeicher und kann es per Hand mit Strg+V einfügen in meine Datei aber das Makro macht es leider nicht.

Ich hoffe mir kann einer helfen?!

'No errors -> Import files
For i = 1 To NumberImportFiles
ColumnsToCopy = ThisWorkbook.Sheets(HeaderDefinition).Cells(i, 1).Value
Workbooks(ImportFiles(i)).Sheets(SourceSheetName(i)).Range(Columns(1), Columns(ColumnsToCopy)).Select
Selection.Copy
Workbooks(ImportFiles(i)).Close
ThisWorkbook.Sheets("TODO").Range(Columns(1), Columns(ColumnsToCopy)).Paste
next i

:)

 

Hallo

ungetestet

Code:

MfG Tom

 

Moin auch von mir!
Hat etwas mit der Fehlinterpretation der .Paste-Methode zu tun, liegt am unsäglichen Rekorder-Code.
.Paste funktioniert nur, wenn das Parent-Objekt ein Worksheet oder ein Chart ist, nicht jedoch bei einem Range!
Ansonsten siehe Tom.

Gruß Ralf