Habe mir die Dinge aus Büchern (vor allem bei Bernd Held) und Foren "zusammen geklaut". Schaut so aus:
Sub XXX()
Dim Mappe As String
Dim i As Integer
Mappe = ActiveWorkbook.Name
Range("b2").Select
With Application.FileSearch
.NewSearch
.LookIn = "C:\Test"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open.FoundFiles (i)
Range("b2:b500").Copy
Workbooks(mappe).Activate
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Next i
End With
Bei "Workbooks.Open.FoundFiles (i)" kommt jedes mal die Meldung "Fehler beim kompilieren. Argument ist nicht optional"
Hilfeeee !!!