Hyperlink öffnet nicht bei TextToDisplay
22.08.2025 18:46:09
CptTuttle
mit untenstehendem Makro erstelle ich Hyperlinks mit jeweils einem Text to Display.
Dies funktioniert soweit, nur lässt sich der Hyperlink nicht öffnen, wenn statt der gesamten Ordneradresse ein TextToDisplay angegeben ist.
Halte ich die Maus auf den Hyperlinktext, wird mir der korrekte Link zum Ordner angezeigt.
Woran liegt das und wie kann ich Hyperlinks öffnen, wenn ein DisplayText angezeigt wird?
Chris
'Text in Hyperlinks umwandeln
Dim celCOLAB
For Each cellCOLAB In .Range("AB2:AB" & .Cells(Rows.Count, "AB").End(xlUp).Row)
Ttd = .Cells(cellCOLAB.Row, 30).Value 'Text to display in Hyperlink - Hole dir den TexttoDisplay aus Spalte 30.
cellCOLAB.Parent.Hyperlinks.Add anchor:=cellCOLAB, Address:=cellCOLAB.Value, TextToDisplay:=Ttd
Next cellCOLAB
Link öffnen bei Doppelklick geht nicht:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LFDNR As String
Dim rngzelle As Range
On Error GoTo err:
LFDNR = UF.ListBox1.List(UF.ListBox1.ListIndex, 1)
Set rngzelle = Sheets("Test").Range("D:D").Find(What:=LFDNR, _
LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not rngzelle Is Nothing Then
Application.EnableEvents = False
ThisWorkbook.FollowHyperlink Address:= _
Worksheets("Test").Cells(rngzelle.Row, 4).Offset(, 24).Value, NewWindow:=True, AddHistory:=True
Application.EnableEvents = True
Exit Sub
End If
Anzeige