HERBERS Excel-Forum - die Beispiele

Thema: Email-Adressen in Hyperlinks umwandeln

Home

Gruppe

Allgemein

Problem

Die Email-Adressen in Spalte A wurden aus einer Text-Datei importiert und sollen in Email-Hyperlinks umgewandelt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub SetHyperlinks()
   Dim iRow As Integer
   ActiveSheet.Hyperlinks.Delete
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      Cells(iRow, 1).Hyperlinks.Add Cells(iRow, 1), _
         "mailto:" & Cells(iRow, 1).Value
      iRow = iRow + 1
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Hyperlink

Hyperlink per Code aktivieren, gibt Fehlerhinweis xlDialogInsertHyperlink.show
Hyperlinks in Excel Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten Hyperlink zu Wordtabelle mit Textmarke
Hyperlink variabel Hyperlink - UserForm
Hyperlink öffnet Arbeitsmappe mit Parametern Hyperlinks finden
Hyperlink zurückwandeln? Hyperlink zurückwandeln?
Hyperlink zurückwandeln? Hyperlink
Hyperlink als Button Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl Hyperlinks - Standardordner ändern
Hyperlink Hyperlink
Hyperlinks Hyperlink
Prüfen ob Hyperlink Allgemeine Frage zur Fehlerbehandlung
Hyperlink und nachträglich Zeilen einfügen allgemeine Fragen zu einer Datenbank
ComboBox mit Hyperlink ListBox1_DblClick Hyperlink öffnen
Hyperlink mit Abfrage hinzufügen Hyperlink als Text
Hyperlink entfernen und Zelle einfärben ? Dateinamen auslesen - aber nicht Hyperlink
Bilder mit Hyperlink Excel: Bei Schutz Gruppierung/Hyperlink/Sortierung
Hyperlink auf Bereich in Arbeitsblatt Hyperlinks per VBA - Dokument defekt?
Hyperlink - Datei wird ausgeblendet Hyperlink verwirrung
Hyperlink nicht starr (absolut) Hyperlink
Hyperlinks innerhab einer Mappe (kein Dateipfad) Hyperlink von Excel zu Word
Hyperlink-Probleme Hyperlink
per Makro Hyperlink generieren Hyperlink auf anderes Tabellenblatt mit VBScript
Hyperlink von Zelle auf anderes Tabellenblatt hyperlink als email mit betreff und cc aus spalte
Hyperlink via WENN-Fkt aktivieren