Aus dem Forum habe ich mir etwas zusammengestellt, was auch wunderbar funktioniert. Es fehlt nur noch folgendes. Ich möchte dass mit/nach jedem mal Dateinamen "einfügen" (ich glaube hier wbQuelle.Sheets(2).Range("A2").Value = dName), dieser Dateiname in der wbQuelle hinuntergezogen wird. Die Zellen in der rechten Spalte sind gefüllt.
Sodass (ich glaube hiermit > .Range(.Range("A1"), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 14)).Copy) der zu kopierende Part so übernommen werden kann.
Hier das Sammelsurium aus dem Forum:
Sub Daten_sammeln()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim wbQuelle As Workbook
Dim dName As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Temp")
For Each oFile In oFolder.Files
If Right(oFile.Name, 5) = ".xlsx" Then
Set wbQuelle = Workbooks.Open(oFile.Path)
With wbQuelle.Sheets(2)
dName = ActiveWorkbook.Name
wbQuelle.Sheets(2).Range("A2").Value = dName
.Range(.Range("A1"), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 14)).Copy
End With
With ThisWorkbook.Sheets(1)
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End With
ActiveWorkbook.Save
Application.CutCopyMode = False
wbQuelle.Close
End If
Next 'oFile
End Sub
Wahrscheinlich ein schnips für den Profi, aber ein Wunder für den Anfänger.Grüße
Arnd