Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
email gültigkeitsprüfung
zurück: Text farbig schreiben weiter: Vorgegebenen Bereich aus einem anderen Dokument kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ledonus
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Mai 2010, 16:20
Rufname:

email gültigkeitsprüfung - email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Hallo zusammen,
hoffe ihr könnt mir helfen....

im userform sollte man nen text eigenben der als email übertragen wird.
das habe ich bisher geschafft.
das problem ist ...ich will dass es prüft ob email richtig ist .....also kontrolliert ob es dem Mailsaudruck entspricht ( mustermann@musterprovider.com).
so dass wenn man was anderes eingibt (zb: zahl,text usw) ...meldungen herausgegeben werden.

wenn email enstpricht mustermann@musterprovider.com
dann OK
wenn nicht
dann meldung


danke euch im voraus
Phelan XLPH
Fortgeschritten


Verfasst am:
25. Mai 2010, 16:51
Rufname: Phelan


AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Code:
If Not TextBox1 Like "*?@*?.?*" Then MsgBox "Keine E-Mail Adresse!"

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
ledonus
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Mai 2010, 17:17
Rufname:

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Danke Glücksritter =)
es funktionniert prima
ledonus
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Mai 2010, 17:46
Rufname:

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Hallo Nochmal,
nun funktionniert die Sache mit der mailprüfung einwandfrei, jedoch habe ich die zusätzliche bedienung wo nichts im textbox eingegeben wird.
in dem fall sollen ja trotzdem entsprechenden daten übertragen werden wie name,adresse usw.

also konkrete Frage :

wie mache ich es damit email übertragen wird wenn email korrekt ist UND email ="" also auch wenn nichts im textbox eingegeben ist

mit der if bedienung scheint es nicht möglich zu sein da schon charackers zum vergleich abgefragt sind :
.
..
....
if not textbox1 like "*?@*?.?*" then msgbox "kein Email"
(hier noch die bedienung mit dem leern textbox)

else writedata



danke
Phelan XLPH
Fortgeschritten


Verfasst am:
25. Mai 2010, 18:51
Rufname: Phelan


AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Code:
Private Sub CommandButton1_Click()
    If Not (TextBox1 Like "*?@*?.?*" Or TextBox1 = "") Then
        MsgBox "Bitte E-Mail-Adresse eingebn oder [LEER] lassen.", _
        vbInformation, "Info"
        Exit Sub
    End If
    'weiter im Code
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
ledonus
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Mai 2010, 19:07
Rufname:

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

danke für die schnelle Antwort

ich habe so angepasst jedoch die zweite (OR) bedienung wird irgendwie ignoriert und es wird nichts übertragen.

hier nochmal Code :

.
..
...
If (Not TxtEmail.Value Like "*?@*?.?*" Or Not TxtEmail.value = "") Then

MsgBox " kein korrekter Email", vbCritical, "Verwaltung"
...

else Writedata
....
Phelan XLPH
Fortgeschritten


Verfasst am:
25. Mai 2010, 23:14
Rufname: Phelan

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Bin leider kein Hellseher, denn der Code funktioniert wie du es haben möchtest.
Musst schon mehr von deinem Code zeigen, damit ich seh was abgeändert wurde.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
xr8k2
...


Verfasst am:
26. Mai 2010, 07:41
Rufname:

AW: Nicht ODER sondern UND ... - AW: Nicht ODER sondern UND ...

Nach oben
       Version: Office 2003

Hallo Ledonus,

mach mal das 'OR' zu ´nem 'AND' Very Happy

Gruß,
xr8k2
Gast



Verfasst am:
26. Mai 2010, 14:03
Rufname:

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Hallo zusammen =)
ich habe's mit AND versucht aber da kriege ich eine fehlermeldung (laufzeitfehler 5).


hier der Code :


' Daten speichern

Private Sub CommandButton1_Click()
Dim rngBereich1, rngBereich2, rngBereich3, rngBereich4 As Range
Dim rngFund1, rngfund2, rngfunf3, rngfund4 As Range


'DatenExistenz prüfen
Set rngBereich1 = Range("A2", Range("A65536").End(xlUp))
Set rngFund1 = rngBereich1.Find(TxtUnternehmen.text, LookAt:=xlWhole)
Set rngBereich2 = Range("b2", Range("b65536").End(xlUp))
Set rngfund2 = rngBereich2.Find(TxtNamen.text, LookAt:=xlWhole)
Set rngBereich3 = Range("c2", Range("c65536").End(xlUp))
Set rngfund3 = rngBereich3.Find(TxtAdresse.text, LookAt:=xlWhole)
Set rngBereich4 = Range("e2", Range("e65536").End(xlUp))
Set rngfund4 = rngBereich4.Find(TxtEmail.text, LookAt:=xlWhole)

If (Not rngFund1 Is Nothing And Not rngfund2 Is Nothing And
TxtNamen.Value <> "") Then
MsgBox "die eingegebenen Daten sind schon vorhanden", vbCritical,
"Verwaltung"
Unload Me
End If


If (Not rngFund1 Is Nothing And (TxtUnternehmen.Value = "" Or
TxtNamen.Value = "")) Or TxtUnternehmen.Value = "" Or TxtNamen.Value =
"" Then
MsgBox "Ein oder zwei Felder müssen gefühlt werden", vbCritical,"Verwaltung"
End If

If (Not TxtEmail.Value Like "*?@*?.?*" And Not TxtEmail.Value = "") Then
MsgBox " kein korrekter Email", vbCritical, "Verwaltung"


Else: WriteData

End If
End Sub





' Daten zurück schreiben
'
Private Sub WriteData()

Dim letzte_zeile As Long
With Worksheets("Tabelle1")
letzte_zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
Cells(letzte_zeile, 1).Value = TxtUnternehmen.Value
Cells(letzte_zeile, 2).Value = TxtNamen.Value
Cells(letzte_zeile, 3).Value = TxtAdresse.Value
'Cells(letzte_zeile, 5).Value = txtemail.value
.Hyperlinks.Add Anchor:=Cells(letzte_zeile, 5), Address:="mailto:" &
Me.TxtEmail.text, TextToDisplay:=Me.TxtEmail.text
End With
TxtUnternehmen.Value = ""
TxtNamen.Value = ""
TxtAdresse.Value = ""
TxtEmail.Value = ""




Danke =)
Gast



Verfasst am:
31. Mai 2010, 18:39
Rufname:

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

noch keine vorschläge! Sad
Isabelle :-)
Gast


Verfasst am:
31. Mai 2010, 18:59
Rufname:

AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Hallo,

eigentlich wollte ich nicht schreiben, denn deine rote Codeformatierung ist

Nein das Wort schreibe ich jetzt nicht.

Die Prüfung eine Mailadresse mit dem Like-Operator ist sehr unzureichend. Der schluckt auch 1@2.3 und das ist garantiert keine gültige Adresse.

Versuch es mal damit:

Code:
Private Sub CommandButton1_Click()

    Dim objRegEx As Object, objMatch As Object
   
    Set objRegEx = CreateObject(Class:="VBScript.RegExp")
   
    With objRegEx
        .Global = True
        .Pattern = "^[_a-z0-9!#$%&\\'*+-\/=?^_`.{|}~]+(\.[_a-z0-9!#$%&\'*+-\\/=?^_`.{|}~]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"
        .IgnoreCase = True
        Set objMatch = .Execute(TextBox1.Text)
    End With
   
    If objMatch.Count = 0 And TextBox1.Text <> vbNullString Then
        MsgBox "Bitte E-Mail-Adresse eingebn oder [LEER] lassen.", _
            vbInformation, "Info"
        Exit Sub
    End If
   
    'weiter im Code
   
End Sub

LG Isi
Gast



Verfasst am:
01. Jun 2010, 20:20
Rufname:


AW: email gültigkeitsprüfung - AW: email gültigkeitsprüfung

Nach oben
       Version: Office 2003

Hallo Isi,

es funktioniert Prima...danke dir Smile
und sorry nochmal für die Farbe des Codes.
firshlingsfehler Smile

Gruß
Hic
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung 10 Simba 275 21. Mai 2010, 20:54
Simba Gültigkeitsprüfung
Keine neuen Beiträge Excel Formeln: dynamische Fehlermeldung bei Gültigkeitsprüfung einer Zelle 4 Elfriede67 912 24. Jan 2010, 01:19
Elfriede67 dynamische Fehlermeldung bei Gültigkeitsprüfung einer Zelle
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung 2 Gast 202 19. Dez 2009, 16:16
Gast Gültigkeitsprüfung
Keine neuen Beiträge Excel Formeln: Email Adressen aus Excel in ein Email importieren 2 Gast 1385 12. Nov 2009, 15:07
Gast Email Adressen aus Excel in ein Email importieren
Keine neuen Beiträge Excel Formeln: Problem bei benutzerdefinierter Gültigkeitsprüfung 2 fborn 395 06. Okt 2009, 11:01
Gast Problem bei benutzerdefinierter Gültigkeitsprüfung
Keine neuen Beiträge Excel Formeln: Excel Gültigkeitsprüfung "ohne Eingabe" ? 4 Gast1977 1694 31. Jul 2009, 20:38
Gast1977 Excel Gültigkeitsprüfung "ohne Eingabe" ?
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung mit Liste und einer Funktion 2 marcus2009 185 05. Jun 2009, 14:01
marcus2009 Gültigkeitsprüfung mit Liste und einer Funktion
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung für leere Zelle 4 Niläk 1500 12. Apr 2009, 09:56
Niläk Gültigkeitsprüfung für leere Zelle
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung kombinieren 9 Thomas Pelz 887 16. Jan 2009, 15:36
Thomas Pelz Gültigkeitsprüfung kombinieren
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung 1 Rainilein 274 30. Nov 2008, 13:31
Nepumuk Gültigkeitsprüfung
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung zur Berechnung verwenden? 7 Lefti 585 21. Nov 2008, 10:38
Detlef 42 Gültigkeitsprüfung zur Berechnung verwenden?
Keine neuen Beiträge Excel Formeln: Gültigkeitsprüfung + Platzhalter verwenden 2 Daniel123 378 19. Aug 2008, 15:59
Daniel123 Gültigkeitsprüfung + Platzhalter verwenden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web