Moin zusammen

Ich hoffe jemand hier kann mir einen Tipp geben.

Es geht darum, dass ich mit einem Makro aus einem bestimmten Ordner alle PDFs auslese und in Excel aufliste. Nun würde ich gerne die ausgelesenen Pdf Dateinamen aber als Hyperlink haben. und da komme ich nicht weiter.

Hier mal der code

Sub Dateien_eines_Ordners_Auflisten()

Dim wks As Worksheet
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

'Tabelle aktivieren um Spalte zu löschen
Set wks = ActiveWorkbook.Worksheets("Tabelle2")

'löscht Spalte B
wks.Range(Cells(2, 2), Cells(3000, 3)).ClearContents


Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("Ordnerpfad")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 2

'liest alle pdfs aus dem ordner und schreibt sie ins excel
For Each objDatei In objDateienliste
     If Not objDatei Is Nothing And Right(LCase(objDatei.Name), 4) = ".pdf" Then
          ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
     
          'in hyperlink umwandeln
        ActiveSheet.Hyperlinks.Add Anchor:=Tabelle2.Cells(lngZeile, 2), _
        Address:="objDateienliste", _
        TextToDisplay:=Tabelle2.Cells(lngZeile, 2).Value
          
          lngZeile = lngZeile + 1
          
     End If
Next objDatei

End Sub

Wenn ich dieses Programm laufen lasse, werden die Links zwar generiert aber wenn man draufklickt kommt die Meldung: Angegebene Datei kann nicht geöffnet werden.

Ich vermute stark, dass hängt mit dem Dateipfad zusammen. Aber wie kann man's formulieren, dass jeder Link die entsprechende pdf datei auch öffnet?

Kann mir hier jemand weiterhelfen? Wäre für jeden Tipp dankbar

greez Mike