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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins