ich suche momentan nach einer Lösung um eine Email Adresse über eine userform in meine Tabelle eintragen zu lassen. Das vorgesehene Feld dafür ist G5.
Leider nimmt er meinen String "mail" nicht für die vorgesehene Adresse.
Private Sub btnOk_click()
Dim mail As String
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets("Reparatur")
mail = TxtBox_Defekt_Email.Value
sheet.Hyperlinks.Add Anchor:=sheet.Range("G5"), _
Address:="mailto:mail?subject=Geräte Reparatur", _
SubAddress:="", ScreenTip:="", TextToDisplay:="mail"
Unload Me
End Sub