Gruppe
UDF
Bereich
Zeichenfolge
Thema
Hyperlinks in Text, Adresse und Sub-Adresse trennen
Problem
Mit einer benutzerdefinierten Funktion sollen Text, Adresse und SubAdresse von Hyperlinks ermittelt werden. Der Parameter 0 steht für den Text, 1 für die Adresse und 2 für die SubAdresse.
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: Modul1
Function SplitHype(rng As Range, iInfo As Integer)
Select Case iInfo
Case 0: SplitHype = rng.Value
Case 1: SplitHype = rng.Hyperlinks(1).Address
Case 2: SplitHype = rng.Hyperlinks(1).SubAddress
End Select
End Function