|
Noch vergessen zu schreiben:
Das "=[abc.xlsx]korr!RC" bezieht sich auf diese eine Datei. Wenn ich aber eine Schleife laufen lassen, die alle Dateien nacheinander aufruft und deren Inhalt in die ProbeMappe.xlsm kopieren soll, dann bräuchte ich wahrscheinliche eine Art Platzhalter.
Der vollständige Code sieht folgendermaßen aus:
Filename = Dir(Path1 & "*.xlsx")
Filename = Dir(C:\Users\Lomo\Desktop\April_20\2020Q1\ & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path1 & Filename, ReadOnly:=True, UpdateLinks:=False
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name Like "*korr*" Then
rowCount = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
ws.Range("A$" & rowCount & ":" & "AX1").FormulaR1C1 = "=[abc.xlsx]korr!RC"
|