Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail-Adressen prüfen

E-Mail-Adressen prüfen
17.10.2006 15:26:06
Gaby
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail-Adressen prüfen
17.10.2006 15:43:26
Rudi
Hallo,
in ein Modul:

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(strEMail, ".") > 0
End Function

in der Tab dann z.B. =emailgueltig(A2)
Gruß
Rudi
AW: E-Mail-Adressen prüfen
17.10.2006 15:51:23
Reinhard
Hallo Rudi,
so ist's doch sicherer:
EMailGueltig = InStr(strEMail, "@") =1 And InStr(strEMail, ".") =1
Gruß
Reinhard
Anzeige
AW: E-Mail-Adressen prüfen@Reinhard
17.10.2006 16:01:25
Rudi
Hallo Reinhard,
das ist falsch!
Instr gibt die Position des Zeichens im String zurück.
Somit müssten beide an 1er Stelle sein, was 1.unwahrscheinlich und 2.unmöglich ist.
Gruß
Rudi
AW: E-Mail-Adressen prüfen@Reinhard
17.10.2006 16:22:44
Reinhard
Hallo Rudi,
aargs, hab das irgendwie mit Anzahl verwechselt :-)
vielleict dann so, ungetestet:
EMailGueltig = InStr(replace(strEMail,"@",""), "@") =0 And InStr(replace(strEMail,".",""), ".") =0
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: E-Mail-Adressen prüfen
17.10.2006 16:04:06
IngGi
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
Anzeige
AW: E-Mail-Adressen prüfen
17.10.2006 16:35:03
Reinhard
Hallo Ingolf,
ja, kam da durcheinander :-)
Option Explicit
Function EMailGueltig(strEMail As String) As Boolean
Dim n As Integer, Sonder As String
For n = 1 To Len(strEMail)
If Mid(UCase(strEMail), n, 1) > "Z" Or Mid(UCase(strEMail), n, 1) < "A" Then Sonder = Sonder & Mid(strEMail, n, 1)
Next n
EMailGueltig = Sonder = "@."
End Function
Sub test()
MsgBox EMailGueltig("abc@hmf.de")
End Sub

Gruß
Reinhard
AW: E-Mail-Adressen prüfen
17.10.2006 16:16:47
EtoPHG
Hallo Reinhard,
Wenn schon sicherer (aber OHNE Spezialzeichen):

eMailGueltig = InStr(strEMail, "@") > 1 And InStr(strEMail, ".") > InStr(strEMail, "@")

Gruss Hansueli
Anzeige
AW: E-Mail-Adressen prüfen
17.10.2006 16:37:30
Andi_H
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
Anzeige
Jungs - dafuer gibts Regex!
17.10.2006 18:50:53
Johannes
Hallo Rudi,
das beste ist, du setzt dir nen Verweis auf die VB-Script Regular Expressions und schon hast du die richtigen Werkzeuge um sowas richtig anzugehen.
Option Explicit
Dim myReg As RegExp
Public Function TestEmail(ByVal vstrEmail As String)
  
  Dim blnTest As Boolean
  Set myReg = New RegExp
  myReg.Pattern = _
        "^[a-z0-9\-\.]{2,63}@[a-z0-9\-\.]{2,63}\.[a-z]{2,4}$"
  myReg.IgnoreCase = True
  blnTest = myReg.Test(vstrEmail)
  If blnTest = True Then
     MsgBox "E-Mail-Adresse ist gültig.", vbOKOnly, "eMail-Test"
  Else
     MsgBox "E-Mail-Adresse ist ungültig!", vbOKOnly + vbCritical, _
            "eMail-Test"
  End If
  Set myReg = Nothing
End Function

Gruesse,
Johannes
Anzeige
AW: Jungs - dafuer gibts Regex!
17.10.2006 20:46:37
Rudi
Hallo,
schön und gut, aber die muss man erst mal kennen. Hab zwar schon mal davon gehört, weiß davon aber weniger als von Timbuktu. ;-)
Gruß
Rudi

308 Forumthreads zu ähnlichen Themen

Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Anzeige
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
eMail-Adressen auf Syntax prüfen
Selter

Hallo,
kann ich in XLS auf einfache Weise eine Liste von Adressen auf Korrektheit hinsichlich Syntax prüfen?
In der Liste gibt es u.a. Umlaute etc.
Vielen Dank
Selter
17.02.2009 15:20:00
Thread-ID: 1051513
7 Beiträge
Anzeige
Datei-Namen ändern bei E-Mail-Versand aus Excel
Herbert

Hallo,
kann ich einen Datei-Namen ändern wenn ich sie aus Excel heraus per E-Mail versende und wenn ja wie bitte?
Vielen Dank im Voraus!
Herbert
09.05.2009 11:31:27
Thread-ID: 1074052
5 Beiträge
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
Userform Textbox soll E-Mail Adresse anzeigen
Winfried

Hallo,
ich habe folgende Probleme: In einer Userform werden Adressen erfasst und in einer Tabelle gespeichtert. Die E-Mail Adressen werden nicht als Link erfasst, auf dem Tabellenblatt stehen sie auch nicht als Link. Wie muss ich den Code der Textbox ändern damit die E-Mail Adressen als Lin...
14.04.2010 17:39:26
Thread-ID: 1151809
4 Beiträge
E-Mail Adresse hat keinen Hyperlink VBA
andreas

Hallo zusammen,
ich habe hier einen kleinen Code, damit übertrage ich Werte aus einem Formular in eine externe Tabelle.
Wert in Textbox9 ist immer E-Mail Adresse.
Das auslesen funktioniert problemlos, nur hat die Mail-Adresse in der externen Tabelle den Hyperlink nicht.
Da muss...
09.06.2010 11:56:51
Thread-ID: 1161016
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
2
6
4
4
2
8
3
2
2
4
9
2
7
1
3
3
1
3
1
2
1
1
2