✔ Nur Eingaben in bestimmten Format zulassen!

[Vektor]

Hi,

ich möchte verhindern dass in eine Textbox etwas eingegeben wird, dass nicht einem bestimmten Format entspricht. Also soll bei dem LostFocus Ereigniss der Textbox überprüft werden, ob der eingegebene String einem bestimmten Format entspricht, in meinem Fall dem einer E-Mailadresse.

Ich hab es folgendermaßen versucht, was aber nicht geklappt hat:

Private Sub txtEmail_LostFocus()

    If txtEmail.Text <> Format(txtEmail.Text, "########@#######.###") Then
        ...
    End If

End Sub

Könnt ihr mir weiterhelfen?

Danke im vorraus...

 

[spirit]

Hallo

Hier was schnellgestricktes. Dafür funktioniert es aber....

Private Sub Command1_Click()
    Dim EmailAddy() As String
    Dim EmailAdd As Integer
    Dim EmailDomain() As String
    ' überprüfen ob in der Adresse das @-Zeichen vorkommt
    EmailAdd = InStr(Text1.Text, "@")
    If EmailAdd = 0 Then GoTo meldung
    ' Emailadresse zerlegen
    EmailAddy = Split(Text1, "@")
    ' Prüfen ob vor dem @-Zeichen Buchstaben stehen
    If Len(EmailAddy(0)) < 3 Then GoTo meldung
    ' Prüfen ob hinter dem @-Zeichen ein Provider und
    ' die Domain angegeben wurde (getrennt durch den Punkt)
    EmailDomain = Split(EmailAddy(1), ".")
    If UBound(EmailDomain) = 0 Then GoTo meldung
    Exit Sub
meldung:
    MsgBox "ungültiges E-Mailformat"
    
End Sub

 

[Vektor]

Klasse vielen Dank!