Hyperlinks per VBA auslesen

 

Mit diesem Makro können alle Hyperlinks eines definierten Zellbereichs ausgelesen werden. Das Makro durchforstet in diesem Beispiel die Spalte A und listet die Ergebnisse, also alle ausgelesenen Hyperlinks in Spalte B auf.

Public Sub Hyperlink1()
'Auslesen der Hyperlink-Adresse
Dim hlink As Hyperlink
i = 1
For Each hlink In Sheets(1).Hyperlinks
Sheets(1).Cells(i, 2).Value = hlink.Address
i = i + 1
Next hlink
End Sub



Handelt es sich bei den Hyperlinks um Mail-Adressen, wird automatisch auch das Wort mailto: mit ausgegeben. Als Ergebnis erhalten Sie bspw. die Mailadresse des Hyperlinks wie folgt angezeigt:mailto:Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein.
Das folgende Makro entfernt diesen Zusatz und gibt als Hyperlink nur noch Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein. aus. Der Zusatz mailto: wird entfernt.

Public Sub Hyperlink2_Mailadresse()
Dim hlink As Hyperlink
i = 1
'Auslesen der Hyperlink-Adresse
For Each hlink In Sheets(1).Hyperlinks
mail = hlink.Address
mailneu = Right(mail, Len(mail) - 7)
Sheets(1).Cells(i, 2).Value = mailneu
i = i + 1
Next hlink
End Sub


Dieses Makro entfernt mit Hilfe der Funktion Right() den Zusatz "mailto:" aus der ausgelesenen Mail-Adresse.

     sitepanel e mail Anfrage per E-Mail   |   sitepanel telephone +49(0) 151 164 55 914   |    sitepanel formular  Anfrage per Kontaktformular      |     Excel-Hilfeforum Hilfe-Forum

Wir benutzen Cookies
Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.