Anzeige
Archiv - Navigation
1288to1292
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
VBA Prüfung Is"email"
23.12.2012 18:13:04
Paul
hallo zusammen und einen schönen 4. advent
ich habe eine frage zu VBA. Gibt es eine Möglichkeit eine Textbox auf den inhalt email zu prüfen, ählich wie isnumirc oder istext?
vielen Dank in vorraus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Prüfung Is"email"
23.12.2012 18:14:50
Hajo_Zi
instr()

AW: VBA Prüfung Is"email"
23.12.2012 18:26:19
Paul
Also IsText geht auch nicht hab ich gerad gemerkt, ich will überprüfen, ob in eine textbox ein Text (zb. ein Name oder Vorname) und in einer anderen textbox eine E-mail Adresse (also text mit @) eingegeben wurde.

AW: VBA Prüfung Is"email"
23.12.2012 18:28:21
Hajo_Zi
versuche meinen Vorschlag.
Gruß Hajo

AW: VBA Prüfung Is"email"
23.12.2012 19:37:43
Paul
@hajo versteh nicht wie du das meinst mit instr()

AW: VBA Prüfung Is"email"
23.12.2012 19:43:09
Hajo_Zi

Excel hat auch eine Hilfe
If Instr(Textbox1,"@")>0

Gruß Hajo

Anzeige
per Regex
23.12.2012 18:38:38
CitizenX
Hi,
ins Modul der Tabelle od bei UF ins Modul der UF:
Option Explicit
Private Sub TextBox1_LostFocus()
If Len(Trim$(TextBox1.Value)) = 0 Then Exit Sub
Dim Regex As Object: Set Regex = CreateObject("vbscript.regexp")
With Regex
.ignorecase = True
.Pattern = "\b[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b"
MsgBox "E-MAil Adresse ist " & IIf(.Test(TextBox1.Value), "", "un") & "gültig!"
End With
End Sub
Grüße
Steffen

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige