Mailadressen uit hyperlinks halen

[Mkrijger]

In een kolom staan 1200 namen.
Deze namen hebben elk een hyperlink naar het mailadres van desbetreffende persoon.
Ik zou graag een nieuwe kolom willen maken waarin de mailadressen komen te staan.
Hoe kopieer ik de inhoud van de hyperlink naar de cel ernaast?
Liefst natuurlijk de hele kolom in 1 keer.
Anders moet ik per cel de hyperlink openen...emailadres kopieren...hyperlink sluiten...waarde in de cel er naast pasten.....en dat dan 1200 keer

Wie heeft een oplossing?

Alvast bedankt.

 

[SjonR]

Sub Toon_hyperlink()
 Dim HL As Hyperlink
 For Each HL In ActiveSheet.Hyperlinks
 HL.Range.Offset(0, 1).Value = HL.Address
 Next
End Sub

 

[Mkrijger]

Allereerst bedankt voor je snelle reactie....het zal zeker werken, maar mijn skils zijn niet zo groot met Excel.
Wat moet ik hiermee en waar moet ik het gebruiken?
Als het kan stap voor stap.

 

[SjonR]

je kunt een knop op je werkblad zetten waar je deze macro aan koppelt. Deze macro zet je via de VB-editor (Alt F11) in een module. Kies INVOEGEN>MODULE.

 

[Mkrijger]

Bedankt...werkt !
Scheekt mij een hoop werk