Sub Dateien_suchen()
 Dim FileS As FileSearch
 Dim F As Variant
 Dim x As Integer
 Set FileS = Application.FileSearch
   With FileS
      .NewSearch
      .Filename = InputBox("Dateiname eingeben")
      .LookIn = InputBox("Pfad eingeben")
      .SearchSubFolders = True
      .Execute
   End With
 x = 1
   For Each F In Application.FileSearch.FoundFiles
      Cells(x, 1) = F
      x = x + 1
   Next F
End Sub