Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

email prüfen

email prüfen
23.06.2005 20:41:24
micha
Hallo Leute!
ich lasse über eine UF in eine Textbox eine Email Adresse eintragen. Wie kann ich prüfen lassen, ob die Emailadresse auch richtig ist, d.h. ein @ drin ist usw? Ich habe die Eingabe einer Variablen zugeordnet und muss die nun nur noch prüfen, aber wie?
Danke für eure Hilfe.
Gruß Micha

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: email prüfen
23.06.2005 21:06:18
Jan
Hi,
es reicht nicht, das Vorhandensein von @ zu prüfen. Am besten, du verwendest zur
Prüfung Reguläre Ausdrücke, mal nach googeln.
mfg Jan
AW: email prüfen
24.06.2005 01:37:52
Matthias
Hallo Micha,
ich hab vorgeraumer Zeit mal so was zusammengestrickt:
(in ein normales Modul:)

Function IsMailAddress(z As String) As Boolean
Dim i As Integer
IsMailAddress = True
'Leerzeichen
If InStr(z, " ") > 0 Then IsMailAddress = False: Exit Function
i = InStr(z, "@")
'kein '@'
If i = 0 Then IsMailAddress = False: Exit Function
z = Mid(z, i + 1)
'mehr als 1 '@':
If InStr(z, "@") <> 0 Then IsMailAddress = False: Exit Function
' kein Punkt oder an erster Stelle nach '@':
i = InStr(z, ".")
If i < 2 Then IsMailAddress = False: Exit Function
z = Mid(z, i + 1)
' Domainendung Länge prüfen
If Len(z) < 2 Or Len(z) > 5 Then IsMailAddress = False: Exit Function
'MsgBox z
End Function

Aufruf dann innerhalb der Userform:
If IsMailAddress(Textbox1.Value) Then...

Gruß Matthias
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige