Prüfen ob ein String eine gültige Emailadresse ist

Um zu prüfen ob ein String in einer Zelle eine gültige Email-Adresse ist, nutze ich nachstehenden Code von Max (Nepumuk) Public Sub Beispiel() Dim objRegEx As Object, objMatch As Object Dim vntReturn As Variant Set objRegEx = CreateObject(Class:="VBScript.RegExp") With objRegEx .Global = True .Pattern = "^[a-z0-9\-\.]{2,63}@[a-z0-9\-\.]{2,63}\.[a-z]{2,4}$" .IgnoreCase = True End With Do vntReturn = InputBox(Prompt:="Bitte Mailadresse eingeben.", Title:="Eingabe") If StrPtr(vntReturn) = 0 Then Exit Sub 'Abbrechen gedrückt Set objMatch = objRegEx.Execute(vntReturn) If objMatch.Count > 0 Then Exit Do MsgBox "Keine gültige Mailadresse", vbExclamation, "Hinweis" Loop 'Hier kommt dein Code der die Adresse verarbeitet End Sub

Ob es diese Emailadresse tatsächlich gibt steht natürlich auf einem anderen Blatt

 Share on Facebook

Read more http://vba-codeschnipsel.de/prufen-ob-ein-string-eine-gultige-emailadresse-ist/