Wie konvertiert man mehrere E-Mail-Adressen in Hyperlinks in Excel? 

Wenn Sie eine Liste mit Nur-Text-E-Mail-Adressen in Excel haben und diese in klickbare Hyperlinks zum Versenden von E-Mails umwandeln möchten, kann das manuelle Konvertieren für mehrere Einträge zeitaufwendig sein. Dieser Leitfaden zeigt zwei effiziente Methoden: die Verwendung der HYPERLINK-Formel oder eines VBA-Makros.

Mehrere E-Mail-Adressen mit einer Formel in Hyperlinks umwandeln

Mehrere E-Mail-Adressen mit VBA-Code in Hyperlinks umwandeln

Mehrere E-Mail-Adressen mit einer Formel in Hyperlinks umwandeln

Mit der Hyperlink-Funktion können Sie schnell die E-Mail-Adressen in der Spalte in hyperverknüpfte Adressen umwandeln.

1. Geben Sie diese Formel =hyperlink("mailto:"&A2) in eine leere Zelle ein, in der Sie das Ergebnis anzeigen möchten, siehe Screenshot:

2. Ziehen Sie dann den Ausfüllkursor nach unten in die Zellen, die diese Formel enthalten sollen, und alle E-Mail-Adressen wurden in klickbare Hyperlinks umgewandelt, wie im folgenden Screenshot zu sehen:

Mehrere E-Mail-Adressen mit VBA-Code in Hyperlinks umwandeln

Wie Sie sehen können, wird durch die Verwendung der obigen Formel eine Zeichenfolge „mailto:“ vor jede E-Mail-Adresse gestellt. Wenn Sie das „mailto:“ nicht in den Adressen haben möchten, kann der folgende VBA-Code Ihnen helfen.

1. Halten Sie die Tasten Alt + F11 in Excel gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Mehrere E-Mail-Adressen in Hyperlinks umwandeln

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. Nachdem Sie den Code eingefügt haben, drücken Sie bitte die F5-Taste, um den Code auszuführen. Es erscheint ein Dialogfeld, das Sie auffordert, den zu verarbeitenden Datenbereich auszuwählen, siehe Screenshot:

4. Klicken Sie anschließend auf OK, und alle ausgewählten E-Mail-Adressen wurden in hyperverknüpfte Adressen umgewandelt, siehe Screenshot: