Forum Discussion
Data Validation to force user to add correct email address
Hello I have a large spread sheet which includes 100's of emails, often if the email address is unknown someone will write random text which is quite frustrating, I have tried using custom data v...
Hi Sarah,
you can use the following userdefined function. See attached file too.
Function Mailcheck(strText As String) As Boolean
Dim objRegEx As Object
Dim objMatch As Object
Set objRegEx = CreateObject("vbscript.regexp")
With objRegEx
.Global = False
.Pattern = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" 'gängige e-Mail-Adressen prüfen
.MultiLine = True
Set objMatch = .Execute(strText)
If objMatch.Count <> 0 Then
Mailcheck = True
Else
Mailcheck = False
End If
End With
Set objRegEx = Nothing
Set objMatch = Nothing
End Function
Best regards
Bernd
https://vba-tanker.com/