Option Explicit
Sub Test()
Suchen
Suchen "E:\Temp"
End Sub
Sub Suchen(Optional ByVal Ersatz As String)
Dim Laufwerk As String, Dateien As String, Datei As String
Dim z As Long, lrw As Long
z = 2
lrw = Cells(Rows.Count, 1).End(xlUp).Row
With Range(Cells(z, 1), Cells(lrw, 1))
.ClearContents
.ClearHyperlinks
End With
Laufwerk = ThisWorkbook.Path
If Len(Ersatz) Then Laufwerk = Ersatz
If Right(Laufwerk, 1) <> "\" Then Laufwerk = Laufwerk & "\"
Dateien = InputBox("Nach welchen Dateien soll in" & _
Chr(10) & " " & Laufwerk & Chr(10) & _
"gesucht werden (z. B. *.xls)?", _
"Dateityp", "*.pdf")
If Dateien = "" Then Exit Sub
Datei = Laufwerk & Dateien
Datei = Dir(Datei)
Do While Datei <> ""
Cells(z, 1).Hyperlinks.Add anchor:=Cells(z, 1), Address:=Datei
z = z + 1
Datei = Dir()
Loop
End Sub