Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Hyperlinks in Text, Adresse und Sub-Adresse trennen
Gruppe
Zeichenfolge
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