0160-93 82 19 37 | Nehmen Sie 
Hyperlinks per VBA auslesen
101083
Möchten Sie die Adresse eines Hyperlinks auslesen?
Wenn ja, dann sehen Sie sich die folgenden Makros näher an.
Das erste Makro durchforstet die Spalte A des gesamte Tabellenblattes und listet die Ergebnisse 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:
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
';
document.write('');
document.write(addy_text73824);
document.write('<\/a>');
//-->\n 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
