Hyperlink anzeigen

Forumthread: Hyperlink anzeigen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Hyperlink anzeigen

Hyperlink anzeigen

15.08.2017 11:11:53

ExcelDirk

Wertes Forum,
der anzuzeigende Text eines Hyperlinks lautet
Kurzer_Hyperlink
Die Adresse lautet
Laaaaaaanger_AugeschriebenerHyperlink
In einer 'Nebenzelle' möchte ich die Adresse, also Laaaaaaanger_AugeschriebenerHyperlink
anzeigen lassen.
Wie könnte das gehen?
Danke schon mal und schöne Grüsse
Dirk

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hyperlink anzeigen

15.08.2017 11:38:02

ChrisL
AW: Hyperlink anzeigen

15.08.2017 11:38:55

Sepp
AW: Hyperlink anzeigen

15.08.2017 11:50:03

ExcelDirk

AW: Hyperlink anzeigen

15.08.2017 11:38:02

ChrisL

Hi Dirk
Folgender Code in ein Standardmodul kopieren:

Function ShowLink(rng As Range) As String
ShowLink = rng.Hyperlinks(1).Address
End Function

Als Formel verwendet
=ShowLink(A1)
cu
Chris

AW: Hyperlink anzeigen

15.08.2017 11:38:55

Sepp

Hallo Dirk,
eine Möglichkeit.

' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function LinkAddress(Target As Range) As String
On Error GoTo ErrExit
LinkAddress = Target.Hyperlinks(1).Address
Exit Function
ErrExit:
LinkAddress = "no hyperlink!"
End Function