habe mir eine Datenverbindung mit Powerquery eingerichtet. Hier werden PDF Dateien aus einem Ordner gezogen und die Abfrage wird alle 60 Minuten aktualisiert.
Es wäre schön wenn die PDF Bezeichnung "QA_RK-L462-02-2020.pdf" sofort den Link zur Datei hätte.Da es sich im Moment um etwa 40 Dateien handelt und immer welche dazukommen, möchte ich das nicht händisch machen. Wobei dann immer die Neuen auch wieder verlinkt werden müssten.
Habe dieses Makro aus dem Netz und meine Dateiabfrage danach angepasst.
Leider kommt immer der Laufzeitfehler 13 "Typen unverträglich"
Kann mir jemand helfen,den Fehler zu beseitigen ?
Danke und Gruß Uli
Option Explicit
Sub Liste_Zu_Hyperlink()
Dim oListe As ListObject, Anz As Long
Dim cText As String, Ze As Long
Dim rng As Range
Set oListe = ActiveSheet.ListObjects("Zu_Hyperlink")
With oListe
Anz = .ListRows.Count
For Ze = 1 To Anz
Set rng = .ListRows(Ze).Range
cText = rng
.ListRows(Ze).Range.Hyperlinks.Add rng, cText
Next Ze
End With
End Sub