Excel-Makro zum Kopieren von einem Zellbereich in eine andere Datei?

[gneus]

Ich brauche ein Excel-Makro zum Kopieren von einem Zellbereich (K1-K2) in eine andere Datei?
Es wird immer ein Fehler angezeigt, wegen"With Application.FileSearch". Mein ganzer Code:

Code: [Auswählen]

Sub FilesListen()
Application.ScreenUpdating = False
Dim Dateien As Integer
Dim DateiName As String
With Application.FileSearch
.NewSearch
.LookIn = "C:\Users\niklas\Desktop\excel test\"
.SearchSubFolders = True
.Filename = "*.xlsx"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
If DateiName <> ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)
Workbooks(DateiName).Sheets("Angebot").Range("K1:K2").Copy          ThisWorkbook.Sheets("AngebotAuflistung").Range("I13:J13")
Workbooks(DateiName).Close
End If
Next Dateien
End If
End With
Application.ScreenUpdating = True
End Sub