Gruppe
UDF
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.
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