Gruppe
Funktion
Problem
Aus dem 1. Buchstaben des Vornamens, des Nachnamens und der Domaine soll eine Emailadresse in Kleinschreibung ermittelt 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