Wie wandelt man mehrere E-Mail-Adressen in Excel in Hyperlinks um?
Wenn Sie in Excel eine Liste mit reinen E-Mail-Adressen haben und diese in anklickbare Hyperlinks zum direkten Versenden von E-Mails umwandeln möchten, wird das manuelle Vorgehen bei vielen Einträgen schnell zeitaufwendig. Diese Anleitung stellt zwei effiziente Lösungen vor: die HYPERLINK-Formel oder ein VBA-Makro.
Mehrere E-Mail-Adresse mithilfe einer Formel in Hyperlinks umwandeln
Mehrere E-Mail-Adresse mithilfe von VBA-Code in Hyperlinks umwandeln
Mehrere E-Mail-Adresse mithilfe einer Formel in Hyperlinks umwandeln
Mit der Hyperlink-Funktion verwandeln Sie die gesamte Spalte „E-Mail-Adresse“ auf einen Schlag in klickbare Hyperlinks.
1. Geben Sie diese Formel =hyperlink("mailto:"&A2) in eine leere Zelle ein, in der das Ergebnis erscheinen soll (siehe Screenshot):
2. Ziehen Sie anschließend das Ausfüllkästchen nach unten auf die Zellen, die diese Formel enthalten sollen – und schon wurden alle E-Mail-Adressen wie im folgenden Screenshot gezeigt in anklickbare Hyperlinks umgewandelt:
Mehrere E-Mail-Adresse mithilfe von VBA-Code in Hyperlinks umwandeln
Wie Sie sehen, fügt die obige Formel jeder E-Mail-Adresse automatisch die Zeichenfolge „mailto:“ voran. Falls Sie auf „mailto:“ in den Adressen verzichten möchten, hilft Ihnen der folgende VBA-Code weiter.
1. Halten Sie in Excel die Tasten Alt + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modul-Fenster ein.
VBA-Code: Mehrere E-Mail-Adresse 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 Taste F5, um den Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie den zu verarbeitenden Datenbereich auswählen sollen (siehe Screenshot):
4. Klicken Sie anschließend auf OK, und alle ausgewählten E-Mail-Adressen wurden in Hyperlink-Adressen umgewandelt (siehe Screenshot):
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins