Hyperlink info auslesen

Computer: Software & Programmierung Visual Basic
#1

Ich möchte aus einer Zelle in der ein Hyperlink gespeichert ist, den ScreenTip in eine Variable kopieren um diese dann weiter mit VBA verarbeiten zu können.

spezieller Fall:
ich kopiere aus einer Email den Text in ein ExcelSheet. Darunter ist auch ein Hyperlink. Wenn ich mit der Maus über diesen Link fahre, zeigt er mir in einem kleinen Fenster einen Text an. Diesen Text möchte ich in eine Variable lesen.
Wie funktioniert das?

Das ganze andersrum funktioniert so:

.Hyperlinks.Add Anchor:=.Range(zelle), _
Address:=hyperlinkadresse, _
ScreenTip:=text, _
TextToDisplay:=angezeigterText

Die Variable „text“ möchte ich jetzt wieder auslesen können!

#2

Die Variable „text“ möchte ich jetzt wieder auslesen können!

Hallo Hans-Bärbel,

ich vermeide es grundsätzlich Variablen nach in VB(A) bekannten namen zu benennen. Oft passiert nix, gelegentlich bringt das nur Ärger.
Benenne die Variable myText oder sonstwie *Tipp*

Ansonsten hilft dir das vielleicht weiter:

Sub HyperlinkErzeugen()
With Worksheets("Tabelle1")
 .Hyperlinks.Add Anchor:=.Range("A1"), Address:="www.ich.de", \_
 ScreenTip:="Huhu", TextToDisplay:="Blabla"
End With
End Sub
'
Sub HyperlinkAuslesen()
MsgBox Worksheets("Tabelle1").Range("A1").Hyperlinks(1).ScreenTip
MsgBox Worksheets("Tabelle1").Range("A1").Hyperlinks(1).TextToDisplay
End Sub

Gruß
Reinhard

#3

super, funktioniert einwnadfrei.
Danke