ich komm leider nicht weiter, vielleicht könnt Ihr mir mal helfen. Ich möchte in einer Excel-Datei per Makro alle Worddateien auflisten die sich in einem bestimmten Verzeichnis befinden. Hab da auch was gefunden, aber es funktioniert nicht so richtig.
Das Verzeichnis und der Pfad stehen in B1, die gefundenen Dateien sollen ab B36 aufgelistet werden. Am besten wäre noch ein Hyperlink, damit man die Dateien direkt von dort aus öffnen könnte. Das krieg ich leider mit meinem Halbwissen nicht hin.
Dim arr As Variant
Dim sPath As String, sPattern As String
Dim sFile As String
Sub Einlesen()
sPath = "Range(B1)"
sPattern = "*.doc"
arr = arrAll(sPath, sPattern)
For iCounter = 1 To UBound(arr)
Cells(iCounter, 1) = sPath & arr(iCounter)
Next iCounter
End Sub
Function arrAll(sPath As String, sPattern As String) As Variant
Dim arr()
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sFile = Dir(sPath & sPattern)
Do While sFile ""
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = sFile
sFile = Dir()
Loop
arrAll = arr
End Function
Vielen Dank schonmal!
LG
Silvie