VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Email-Adressen in Hyperlinks umwandeln

Gruppe

Allgemein

Bereich

Hyperlink

Thema

Email-Adressen in Hyperlinks umwandeln

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