Hi zusammen,

ich erstelle gerade eine Userbox mit der Eingabe von Namen (txt_name), Webadresse (txt_webadresse) und eMail (txt_email).
Die Prüfung, ob die Eingabe leer ist funktioniert, aber ich möchte noch prüfen, ob die Webadresse einen Punkt "." und die Mailadresse ein "@" enthält. Wenn nicht, soll eine Meldung über die Messagebox ausgegeben werden.
Die st_ele.Tag-Bezeichnung ist für txt_name "Name", usw.

Danke für eure Hilfe.

Gruß

...hier der Quellcode...

Private Sub btn_pruefung_Click()

Dim znr As Long
Dim st_ele As Control

znr = Range("A1").CurrentRegion.Rows.Count + 1

'Prüfung
For Each st_ele In Me.Controls
If TypeName(st_ele) = "TextBox" Then
If st_ele.Text = "" Then
MsgBox "Das Feld: """ & st_ele.Tag & """ darf nicht leer bleiben.", vbExclamation, "Hinweis!"
st_ele.SetFocus
Exit Sub
End If
End If
Next

'Ausgabe der Inhalte der Textboxen in Excel-Zellen
Range("A" & znr) = Me.txt_name
Range("B" & znr) = Me.txt_webadresse
Range("C" & znr) = Me.txt_email

MsgBox "Dateneingabe OK", vbExclamation, "Prüfergebnis:"

'leeren der Textboxen
Me.txt_name = ""
Me.txt_webadresse = ""
Me.txt_email = ""

'setzen des Focus in die Textbox mit dem Namen txt_name
Me.txt_name.SetFocus

End Sub