VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hyperlinks in Text, Adresse und Sub-Adresse trennen

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zeichenfolge