Hyperlink Informationen mittels VBA in einer Excel Datei auslesen

Ich hatte kürzlich die Anforderung, dass ich aus einer Datei in der Links waren das eigentlich Ziel des Links auslesen wollte.
Nach kurzer Recherche habe ich einen Weg über VBA gefunden. Wie so oft gibt da einige verschiedene Wege und auch Programme dafür.

Ich mache das im Code wie folgt:


'Der Hyperlink der Zelle aus Spalte A (1) wird in eine Variable geschrieben
var_hyperlink = Cells(loi, 1).Hyperlinks(1).Address
'Die Variable wird in die Zelle in Spalte C (3) geschrieben
Cells(loi, 3).Value = var_hyperlink

Beziehungsweise kann man auch ganz einfach wie hier ersichtlich eine eigene kleine Funktion einbauen,
damit man das als Formel machen kann.


'https://www.extendoffice.com/documents/excel/1177-excel-extract-hyperlink-from-cell.html

Function GetURL(pWorkRng As Range) As String
'Updateby20140520

GetURL = pWorkRng.Hyperlinks(1).Address

End Function

Wenn der Hyperlink in Zelle A2 steht kann man diesen zB in Zelle B2 über die Formel =GetURL(A2) auslesen.