Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textfeld nach zeichen durchsuchen

Textfeld nach zeichen durchsuchen
25.01.2004 18:58:21
Markus
Hey,
ich habe folgendes Problem, ich lasse in ein Textfeld der Userform die Email Adresse eintragen, wenn jetzt das @ und der . fehlt läuft Excel auf einen Fehler, kann ich abfragen ob das @ und der Punkt NACH dem @ in dem Textfeld steht.
Danke schonmal
Markus

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

Betreff
Datum
Anwender
Anzeige
AW: Textfeld nach zeichen durchsuchen
25.01.2004 19:00:21
Matthias G
Hallo Markus,
ich habe vor einiger Zeit mal so eine Prüfung 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

Hoffe, du kannst was damit anfangen!
Grüße,
Matthias
Anzeige
Wie muss ich die einbauen
25.01.2004 19:04:05
Markus
Danke für Deine Antwort, aber wie mache ich das mit dem Textfeld
IsMailadress(mail_adresse.Value) ??? --> Geht nicht
danke Dir
MArkus
habs selbst herausgefunden, DANKE
25.01.2004 19:11:27
Markus
IsMailAddress(mail_adresse.Value) = False
Markus
AW: Danke für die Rückmeldung - o.T.
25.01.2004 20:29:30
Matthias G
-
AW: Wie muss ich die einbauen
25.01.2004 19:13:10
MikeS
Dim z As String
z = DeinTextfeld.Text
...

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige