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.

Partnerlinks

Relevante Artikel

  • Cells- zur Range-Schreibweise umwandeln

    Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in die Range-Schreibweise z. B. Range("B1")...

  • Zelladresse in Spalten- und Zeilenangaben trennen

    101084 Dieser Code trennt die Angabe der Adresse C15 in die Spalte C und in die Zeile 15. Die Trennung erfolgt mit der...

  • Zeilen (Einträge) abhängig vom Datum löschen

    Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A im Monat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002 daten daten daten 4 12.09.2002 daten daten daten 5 15.09.2002 daten daten daten 6 20.09.2002 daten daten daten 7 12.10.2002 daten daten daten 8 15.10.2002 daten daten daten 9 20.10.2002 daten daten daten 10 15.11.2002 daten daten daten 11 15.11.2002 daten daten daten 12 15.11.2002 daten daten daten 13 15.11.2002 daten daten daten 14 12.12.2002 daten daten daten 15 15.12.2002 daten daten daten 16 20.12.2002 daten daten daten Nach...

  • Leere Zeilen aus einer Tabelle entfernen

    Mit Hilfe des VBA-Codes aus diesem Beispiel können Leerzeilen aus einem Tabellenblatt entfernt werden. Werden Daten...

  • Autofilter mit mehreren Kriterien

    Ab Excel 2007 können in einem Filter beliebige Filterkriterien manuell vorgegeben werden, indem die gewünschten Werte im...

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.