Extrahieren Sie die URL aus dem Ankertext in Excel

Question

Ich habe in diesem Thread nach etwas gesucht, das zu meiner Anfrage passt, aber die meisten Themen kamen meiner Frage nahe, waren aber nicht spezifisch auf sie zugeschnitten.

Ich versuche, die URL aus einem Ankertext in Excel zu extrahieren.

Gibt es dafür eine Formel? Wenn ich es versuche, =GETURLwird =HYPERLINKtrotzdem der Ankertext mit der daran gebundenen URL eingefügt.

Irgendwelche Ideen? Makrolösungen sind ziemlich nutzlos, also wäre eine Formel nett. Ansonsten überlasst mir die Makros.

Answer 1

Wenn Sie eine Zelle haben, die einen Hyperlink enthält, und Sie die URL statt des „Anzeigenamens“ sehen möchten, ziehen Sie die folgende benutzerdefinierte Funktion (UDF) in Betracht:

Public Function hyp(r As Range) As String
    hyp = ""
    If r.Hyperlinks.Count > 0 Then
        hyp = r.Hyperlinks(1).Address
        Exit Function
    End If
    If r.HasFormula Then
        rf = r.Formula
        dq = Chr(34)
        If InStr(rf, dq) = 0 Then
        Else
            hyp = Split(r.Formula, dq)(1)
        End If
    End If
End Function

Diese UDF funktioniert sowohl mit eingefügten Hyperlinks als auch mit =HYPERLINK()-Funktionen.

Benutzerdefinierte Funktionen (UDFs) sind sehr einfach zu installieren und zu verwenden:

1. ALT-F11 öffnet das VBE-Fenster
2. ALT-I ALT-M öffnet ein neues Modul
3. Füge das Material ein und schließe das VBE-Fenster

Wenn Sie die Arbeitsmappe speichern, wird die UDF mit gespeichert. Wenn Sie eine Version von Excel verwenden, die älter als 2003 ist, müssen Sie die Datei als .xlsm und nicht als .xlsx speichern.

So entfernen Sie die UDF:

1. Öffnen Sie das VBE-Fenster wie oben
2. Löschen Sie den Code
3. Schließen Sie das VBE-Fenster

So verwenden Sie die UDF aus Excel:

=hyp(A1)

Weitere Informationen zu Makros im Allgemeinen finden Sie unter:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

Und

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Und

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

für Einzelheiten zu UDFs

Damit dies funktioniert, müssen Makros aktiviert sein!