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
|