email adres in textbox

[matizje]

Hallo,

ik heb een formulier gemaakt met een aantal textboxen. In 1 textbox moet een email-adres worden ingevuld en deze wil ik dus in mijn werkblad als email-adres zien zodat ik deze kan aanklikken en mijn mail-programma opent. Nu zie ik dit email-adres als platte tekst.
Hoe kan ik hier een hyperlink van maken?

Alvast bedankt

 

[SjonR]

voorbeeldbestandje helpt!!!!!

 

[edmoor]

Zo:

Range("A1").Hyperlinks.Add Anchor:=Range("A1"), Address:="mailto:" & TextBox1.Text, TextToDisplay:=TextBox1.Text

 

[matizje]

voorbeeld bestand

hierbij het voorbeeld bestand

 

[edmoor]

#3 vertaald naar je document:

.Cells(lRow, 8).Hyperlinks.Add Anchor:=.Cells(lRow, 8), Address:="mailto:" & TextBox8.Text, TextToDisplay:=TextBox8.Text

 

[matizje]

opgelost

bedankt, werkt perfect !!!!