Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kontrolle ob @, .com, .de. at in Zelle vorkommt

Kontrolle ob @, .com, .de. at in Zelle vorkommt
16.07.2004 14:19:53
Thomas
Hallo Forum!
In der Spalte U stehen E-Mailadressen unserer Kunden. Kann ich leicht überprüfen ob überall ein @, .at, .de oder .com in der E-Mail-Adresse vorkommt?
Liebe Grüsse
Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontrolle ob @, .com, .de. at in Zelle vorkommt
16.07.2004 14:26:49
Matthias
Hallo Thomas,
ich hab dazu mal 'ne Funktion geschrieben:

Function IsMailAddress(z As String) As Boolean
Dim i As Integer
IsMailAddress = True
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

Gruß Matthias
Anzeige
AW: Kontrolle ob @, .com, .de. at in Zelle vorkommt
Gunther
Hallo Matthias,
das ist nicht korrekt, wenn z.B. Leerzeichen vorkommen!
Gruß Gunther
AW: Kontrolle ob @, .com, .de. at in Zelle vorkommt
20.07.2004 10:07:15
Matthias
Hallo Gunther,
stimmt, hab ich vergessen:

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

Gruß Matthias
Anzeige
AW: Kontrolle ob @, .com, .de. at in Zelle vorkommt
Nike
Hi,
ein Ansatz:

Sub check()
Dim strCheck As String
If InStr(1, Range("A1"), "@") > 0 Then
msgbox "OK"
End If
End Sub

Bye
Nike
2 Strings im Text suchen - per Formel
Boris
Hi Thomas,
das geht auch per Formel. Bezogen auf U1:
=UND(ZÄHLENWENN(U1;"*@*");ODER(ANZAHL(SUCHEN({".at".".de".".com"};U1))))
Ergebnis ist entweder WAHR (alles o.k.) oder eben FALSCH (irgendwas fehlt).
Grüße Boris

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige