Microsoft Excel

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