E-Mail-Adressen prüfen

Gaby · 2006-10-17T15:26:06+00:00

Liebes Excel-Forum. gibt es eine Möglichkeit vorhandene E-Mail-Adressen auf ihre Richtigkeit zu prüfen. Wir müssen diese aus Excel in unser System übernehmen und ich muss prüfen ob @ und ein Punkt vorhanden sind und das kein Leer- oder Sonderzeichen verwendet wurde. Ist dies möglich? Danke für eure Hilfe Gaby

Hallo Reinhard,
kann es sein, dass du damit auf die Anzahl von "@" und "." rauswillst? Da sitzt du einem Denkfehler auf. InStr gibt die Position, nicht die Anzahl zurück. Man könnte aber die Prüfung auf "." auf den Bereich nach "@" einschränken und zusätzlich darauf prüfen, ob die Punkte direkt vor oder nach dem "@" stehen:


Function EMailGueltig(strEMail As String) As Boolean
Dim arrNOK, i As Integer
arrNOK = Array(" ", "\", ";", "(", ")", "ä", "ö", "ü") 'ungültige Zeichen, anpassen
For i = 0 To UBound(arrNOK)
If InStr(LCase(strEMail), arrNOK(i)) > 0 Then
EMailGueltig = False
Exit Function
End If
Next i
EMailGueltig = InStr(strEMail, "@") > 0 And _
InStr(Right(strEMail, Len(strEMail) - InStr(strEMail, "@") - 1), ".") > 0 And _
InStr(strEMail, ".@") = 0 And InStr(strEMail, "@.") = 0
End Function

Gruß Ingolf

prüft ob . und @ jeweils nur 1 x vorhanden sind und ob Leer - und Sonderzeichen enthalten sind


Function IsMailAddress(EmAd As String) As String
Application.Volatile
If InStr(1, EmAd, "@") > 0 Then
If InStr(InStr(1, EmAd, "@") + 1, EmAd, "@") > 0 Then
IsMailAddress = "Ihre Mailadresse enthält mehr als ein '@'"
Exit Function
End If
Else
IsMailAddress = "Ihre Mailadresse enthält kein '@'"
Exit Function
End If
If InStr(1, EmAd, ".") > 0 Then
If InStr(InStr(1, EmAd, ".") + 1, EmAd, ".") > 0 Then
IsMailAddress = "Ihre Mailadresse enthält mehr als ein '.'"
Exit Function
End If
Else
IsMailAddress = "Ihre Mailadresse enthält keinen '.'"
Exit Function
End If
If InStr(1, EmAd, " ") > 0 Then
IsMailAddress = "Ihre Mailadresse enthält leerzeichen!"
Exit Function
End If
Dim Sonderzeichen As Variant
Sonderzeichen = Array("ä", "ö", "ü", "Ü", "Ö", "Ä", ",", ";", "-", "_", "*", _
"+", "~", ":", "§", "$", "%", "&", "/", "(", ")", "=", "?", "\", "`", "´", _
"^", "°", "<", ">", "|")
For i = 0 To UBound(Sonderzeichen)
If InStr(1, EmAd, Sonderzeichen(i)) > 0 Then
IsMailAddress = "Ihre Mailadresse enthält Sonderzeichen!"
Exit Function
End If
Next
IsMailAddress = "Korrekt"
End Function

Gruß
Andi

A	B
test@example.com	=EMailGueltig(A1)
invalid-email	=EMailGueltig(A2)

Forumthread: E-Mail-Adressen prüfen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial