Gegevens uit hyperlink halen

[verhoog]

Ik heb een bestand met hyperlinks, de hyperlinks verwijzen naar email adressen.
Er staat in een cel bijv een hyperlink:

Aan: Helpmij

Het adres achter de hyperlink is info@helpmij.nl.

Is er een formule/manier die het email adres uit de hyperlink haalt en in een cel plaatst?

 

[Roncancio]

Ik heb een bestand met hyperlinks, de hyperlinks verwijzen naar email adressen.
Er staat in een cel bijv een hyperlink:

Aan: Helpmij

Het adres achter de hyperlink is info@helpmij.nl.

Is er een formule/manier die het email adres uit de hyperlink haalt en in een cel plaatst?

Via een macro:

Sub HyperlinkAdres()
Range("B1").Value = Range("A1").Hyperlinks(1).Address
End Sub

In cel B1 verschijnt het hyperlink adres van cel A1.

Met vriendelijke groet,


Roncancio

 

[verhoog]

Ok, dank je. En wat als ik 80 regels heb, dan wordt het

Sub HyperlinkAdres()
Range("B1:B80").Value = Range("A1:A80").Hyperlinks(1).Address
End Sub

klopt dit?

 

[Roncancio]

Ok, dank je. En wat als ik 80 regels heb, dan wordt het

Sub HyperlinkAdres()
Range("B1:B80").Value = Range("A1:A80").Hyperlinks(1).Address
End Sub

klopt dit?

Dan krijgen de cellen in de B-kolom allen de waarde van A1.
Zo kan het.

Sub HyperlinkAdres()
For Rij = 1 To 80
    Range("B" & Rij).Value = Range("A" & Rij).Hyperlinks(1).Address
Next
End Sub

Met vriendelijke groet,


Roncancio