|
Davor wollte ich das komplette Sheet kopieren, was aber falsch war. Jetzt würde ich sehr gerne den Inhalt mit Pfadangabe desjenigen Sheets mit einer genauen Bezeichnung kopieren ("korr").
Meine erste Frage hierbei lautet: wie ersetze ich "=[snt_bst_dynhyb_2020Q1_v1.xlsx]korr!RC" mit dem Objekt Filename?
Wobei ich bereits voraussehe, dass das
Range("A1").Select
ActiveCell.FormulaR1C1 = "=[ snt_bst_dynhyb_2020Q1_v1.xlsx]korr !RC"
vielleicht Probleme machen wird, weil ich möglicherweise nicht spezifiziert habe, auf welches Blatt sich dann das ActiveCell beziehen soll...
Sub Makro1()
Dim Path As Variant
Dim rowCount As Integer
Path = "C:\Users\Buz\Desktop\April_20\2020Q1\"
Filename = Dir(Path1 & "*.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
Range("A1").Select
ActiveCell.FormulaR1C1 = "=[snt_bst_dynhyb_2020Q1_v1.xlsx]korr!RC"
rowCount = Workbooks("snt_bst_dynhyb_2020Q1_v1.xlsx").Worksheets("korr").Range("A1").CurrentRegion.Rows.Count
Selection.AutoFill Destination:=Range("A1:AX1"), Type:=xlFillDefault
Range("A1:AX1").Select
Rows("1:1").Select
Selection.AutoFill Destination:=Rows("1:" & rowCount + 1), Type:=xlFillDefault
Sheet.Copy After:=ThisWorkbook.Sheets(1)
End If
Next Sheet
Workbooks(Filename).Close savechanges:=False
Filename = Dir()
Loop
End Sub
Vielen Dank im Voraus für eure Antwort!
|