ich habe vor einiger Zeit mir hier aus dem Forum nacholgendes Makro geklaut, welches bestens funzt. Allerdings mit dem Nachteil a) ich kenne nur den Vornamen des Erstellers: Marc / 30.06.2005 und b)wird das Ergebnis sämtlicher Abfragen Zeilenweise in der neuen Datei eingebracht.
Ich bräuchte die Ergebnisse pro ausgelesener Datei in einer Zeile
Wer weiß Rat ?
mit riesem Dank
Walter
Hier das Makro:
Sub auslesen_kopieren()
Dim i As Long
Const verz = "c:\"
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False 'True
.Filename = "*.xls"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i + 3))
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(1, 0) = quelle.Worksheets(1).[C6]
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(1, 0) = quelle.Worksheets(1).[c8]
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(1, 0) = quelle.Worksheets(1).[C9]
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(1, 0) = quelle.Worksheets(1).[c11]
quelle.Saved = True
quelle.Close
Next i
End Sub