Ich möchte wie unten "Dateinamen suchen" - VERKNÜPFUNGEN suchen!!
HILFE?!, Danke
Sub Suchen()
Dim iCounter As Integer
With Application.FileSearch
.LookIn = Range("Daten!G1").Value
.Filename = "BL*.xls"
.Execute
For iCounter = 1 To .FoundFiles.Count
Sheets("Daten").Cells(iCounter + 1, 7).Value = Dir(.FoundFiles(iCounter))
Next iCounter
End With
End Sub