habe folgendes Makro gefunden und auch schon benutzt. Nun möchte ich aber zusätzlich die Zellen A7 und B17 kopieren. Hab schon viel versucht, nur bekomme ich es allein nicht hin. Denke mal das das kein großes Problem ist und ganz einfach nur als Anfänger komme ich da nicht weiter.
Sub auslesen()
Dim i As Long
Const verz = "C:\Daten\"
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
For i = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i))
ThisWorkbook.Worksheets("Tabelle1").[B65536].End(xlUp).Offset(1, 0) = quelle.Worksheets("Daten").[E15]
quelle.Close
Next i
End Sub
MfG
Michael