Gruppe
Allgemein
Problem
Die Email-Adressen in Spalte A wurden aus einer Text-Datei importiert und sollen in Email-Hyperlinks umgewandelt werden.
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