Excel-UDF mit Hyperlink als Text

378
Frank B.

Alle UDFs zum Anzeigen von Hyperlinks (die ich gesehen habe) funktionieren nur, wenn der Hyperlink eine URL ist, aber sie funktionieren nicht, wenn der Hyperlink eine andere Zelle in derselben Arbeitsmappe ist. Kann mir jemand helfen, eine UDF zu finden, die den Hyperlink als Text ergibt, wobei der Hyperlink eine andere Zelle in derselben Arbeitsmappe ist? Vielen Dank.

Hier ist ein Screenshot des Hyperlinks, der mit> Einfügen> Hyperlink ... erstellt wurde, und die Zellreferenz, die in der Blase angezeigt wird, wenn ich über der Hyperlinkzelle schwebe.

Dies ist die Zellreferenz, die die UDF als Text in einer anderen Zelle zurückgeben soll.

Screenshot

-1
Könnten Sie ein Beispiel für eine UDF zeigen, die nicht funktioniert? Mark Fitzgerald vor 5 Jahren 0
UDFs können normalerweise nicht zum Ändern von Arbeitsmappen oder Arbeitsblättern verwendet werden. Sie nehmen normalerweise einige Parameter und verarbeiten sie, um ein Ergebnis zurückzugeben, genau wie die eingebauten Funktionen wie `= SUM (range1, range2 ....)`. Eine Prozedur (`Sub`) dient zum Ändern von Elementen in Arbeitsblättern oder Arbeitsmappen. Wenn Sie also nach UDF fragen, meinen Sie eine "Funktion" oder "Sub"? Mark Fitzgerald vor 5 Jahren 0

1 Antwort auf die Frage

0
Akina

Verwenden Sie den folgenden Code:

' Add hyperlink to a cess on Sheet2 Sheets("Sheet2").Hyperlinks.Add _ ' Hyperlink must follow to a single cell A1 on Sheet1 ' To follow another object (multicell range, chart, etc.) specify it Anchor:=Sheets("Sheet1").Range("A1"), _ ' Address must be empty - it is local hyperlink Address:="", _ ' Specify destination address where hyperlink will be placed SubAddress:= "Sheet2!A1", _ ' Specify the text of a hyperlink TextToDisplay:="HyperLink to A1 on Sheet2"