Hoe converteer je meerdere e-mailadressen naar hyperlinks in Excel? 

Als je een lijst met platte tekst-e-mailadressen in Excel hebt en deze wilt omzetten in klikbare hyperlinks voor het versturen van e-mails, kan het handmatig doen voor meerdere items tijdrovend zijn. Deze handleiding demonstreert twee efficiënte methoden: het gebruik van de HYPERLINK-formule of een VBA-macro.

Converteer meerdere e-mailadressen naar hyperlinks met formule

Converteer meerdere e-mailadressen naar hyperlinks met VBA-code

Converteer meerdere e-mailadressen naar hyperlinks met formule

Met de Hyperlink-functie kun je snel de kolome-mailadressen omzetten in gegevensbereik-gelinkte adressen in één keer.

1. Voer deze formule =hyperlink("mailto:"&A2) in een lege cel in waar je het resultaat wilt plaatsen, zie screenshot:

2. Sleep vervolgens de vulgreep omlaag naar de cellen waarin je deze formule wilt hebben, en alle e-mailadressen zijn nu klikbare hyperlinks zoals te zien is in de volgende schermafbeelding:

Converteer meerdere e-mailadressen naar hyperlinks met VBA-code

Zoals je kunt zien, door het bovenstaande gebruik van de formule wordt er een tekst “mailto:” toegevoegd aan elk e-mailadres. Als je geen mailto: in de adressen wilt, kan de volgende VBA-code je helpen.

1. Houd de toetsen Alt + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende macro in het modulevenster.

VBA-code: Converteer meerdere e-mailadressen naar hyperlinks

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Nadat je de code hebt geplakt, druk dan op de F5-toets om de code uit te voeren. Er verschijnt een dialoogvenster dat vraagt om het gegevensbereik te selecteren dat moet worden verwerkt, zie screenshot:

4. Klik daarna op OK, en alle geselecteerde e-mailadressen zijn omgezet in gelinkte adressen, zie screenshot: