Mailadresse
16.02.2017 20:21:10
Benedikt
Zum erfassen von Mitgliedern habe ich eine UF mit diversen Textboxen
Bei der emailadresse funktioniert Worksheets("Test").Range("C19").Value = TextBox7.Value nicht ich habe keinen Hyperlink
Die Suche in Google hat nachfolgenden Code ergeben:
With ThisWorkbook.Worksheets("test")
.Hyperlinks.Add Anchor:=.Range("C19"), Address:= _
"mailto:" & Me.TextBox7.Text, TextToDisplay:=Me.TextBox7.Text
End With
Läuft soweit gut aber nur wenn der Blattschutz mit unprotect deaktiviert wird.
Schlimmer ist wenn der Anwender das Feld nicht ausfüllt dann meldet sich der Debugger
und markiert
.Hyperlinks.Add Anchor:=.Range("C19"), Address:= _
"mailto:" & Me.TextBox7.Text, TextToDisplay:=Me.TextBox7.Text
Wie kann ich das verhindern? Danke für Hilfe