Sub JuengsteDatei_im_Ordner()
Dim sPfad As String, sFilter As String, sDateiname As String
Dim wb As Workbook
Dim sAdresse As String
sPfad = "F:\test\" ' Pfad <<<anpassen>>>"
sFilter = "*.xls*"
sAdresse = "B2:H29"
With CreateObject("wscript.shell")
sDateiname = Ascii2Ansi(Split(.exec("cmd /c dir " & Chr$(34) _
& sPfad & sFilter & Chr$(34) _
& " /s/b/o-d").stdout.readall, vbCrLf)(0))
End With
Set wb = Workbooks.Open(Filename:=sDateiname)
Worksheets("xxxxx").Range(sAdresse).Value = wb.Worksheets(1).Range(sAdresse).Value
wb.Close False
End Sub