habe hier folgende Formel:
=HYPERLINK(getlink(C1); WENN(ISTZAHL(FINDEN("...";C1)); LINKS(C1;FINDEN("...";C1)-1); C1))
Getlink-Funktion
Option Explicit
Public Function getLink(ByRef Target As Range) As String
If Target.Hyperlinks.Count > 0 Then
getLink = Target.Hyperlinks(1).Address
If getLink = "" Then getLink = Target.Hyperlinks(1).SubAddress
End If
End Function
Eine Frage hierzu:der Text in C1 fängt mit 2 nicht angezeigten zeichen mit ASCII Code 160 an.
Ist es möglich, oben genannte Formel so zu erweitern, dass diese beiden Zeichen nicht ausgegeben werden?
Gruß und vielen Dank für eure Mühe
Christian