Hyperlink-Text anzeigen

Question

Ich versuche, den Wert eines Hyperlinktextes in einer anderen Zelle anzuzeigen. Ich habe beispielsweise eine Spalte, die mehrere Hyperlinks enthält, die jeweils mit einer bestimmten Zelle in anderen Blättern verknüpft sind. Ich möchte, dass dieser Wert (Text) in einer anderen Zelle auf meinem Hauptblatt angezeigt wird, wenn jemand auf den Hyperlink klickt.

Ich habe versucht, ein VBA für getUrL einzugeben, aber das hat mir das gewünschte Ergebnis geliefert. Sagen Sie mir Bescheid, wenn jemand eine Lösung dafür anbieten kann.

Answer 1

Dies kann mithilfe der Private Sub Worksheet-Funktion FollowHyperlink (also VBA-Code im Arbeitsblatt) wie folgt gelöst werden:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Sheets("MainSheet").Range("E2").Value = Selection.Value
    Sheets("MainSheet").Range("E3").Value = Target.SubAddress
    Sheets("MainSheet").Range("E4").Value = Target.Range
End Sub