Kein TextToDisplay bei hyperlinks.add in einer Funktion
11.06.2024 17:49:10
ggruen71
ich versuche eine Funktion zu erstellen, die eine URL um den Wert aus einer Zelle (eine Ticketnummer) ergänzt und einen Link auf diese kombinierte URL ergeben soll.
Im Test mit einem Makro gelingt mir das auch vollständig, versuche ich den selben Code in eine Function abzuwandeln, wird zwar der Link korrekt erstellt, das TextToDisplay:= aus dem hyperlinks.add ergibt aber nur ein #Wert!. Bei Versuchen wird nicht einmal ein fixer Text angezeigt. Mit den Datentypen hab ich auch schon experimentiert.
Was ist bei Function anders als bei einem normalen Makro?
Funktioniert:
Sub test123()
Dim Ticket As Variant
Ticket = ActiveCell.Offset(rowOffset:=0, columnOffset:=-1) 'nimmt Ticketnummer links der aktiven Zelle
With ActiveSheet
.Hyperlinks.Add Anchor:=ActiveCell, _
Address:="url-link" & Ticket, _ ' "url-link" ist ein Link aus einem Ticket-System
TextToDisplay:=Ticket
End With
End SubLink wird gebildet, Zelle zeigt aber #Wert! an:
Public Function test456(ByRef Ticket As Variant)
With ActiveSheet
.Hyperlinks.Add Anchor:=ActiveCell, _
Address:="url-link" & Ticket, _ ' "url-link" ist ein Link aus einem Ticket-System
TextToDisplay:=Ticket
End With
End Function
Anzeige