Ich würde mir wünschen, dass es künftig nicht mehr alle Texte ausgibt, die es bislang ausgibt, sondern nur noch ein Teil davon.
Es sollen nur noch Texte aufgelistet werden, welche
1. mit "nm" beginnen
2. kein Fragezeichen beinhalten.
Wie geht das?
Christian
Function Hyperlinkadresse_auslesen(Zelle As Range) As String
Dim HA, ar
HA = Zelle.Hyperlinks(1).Address
ar = Split(HA, "/")
Hyperlinkadresse_auslesen = ar(4)
End Function