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
Excel hat auch eine Hilfe
If Instr(Textbox1,"@")>0
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