Hallo alle zusammen,

ich habe ein Formular mit 3 Textboxen. Hier sollen zwei Abfragen hintereinander laufen:

1. Ob alle Textboxen gefüllt sind (Fehlermeldung nur einmal nicht bei jeder Textbox)

Wenn das ok, dann:

2. ob in der Textbox Mailadresse ein "@" und / oder in der Textbox Webadresse ein "." vorhanden ist - die Fehlermeldung soll ebenfalls nur einmal kommen.

Wenn alles OK, dann MsBox "Alles OK".

Ich bekomme diese Abfragen einfach nicht hin. Die erste Abfrage (ob leer) habe ich soweit, nur leider kommt die Fehlernachricht auch wenn alles gefüllt ist. Keine Ahnung, wie ich die zweite Abfrage dort mit einbauen soll.

Ich stehe einfach auf dem Schlauch.... Hilfe!

Hier mein bisheriger Code:

Private Sub cmb_Plausi_Click()

Dim st_ele As Control
Dim ausgabe As String

ausgabe = "Das Feld: " & vbCrLf

For Each st_ele In frm_Eingabe.Controls
    If TypeName(st_ele) = "TextBox" Then

        If st_ele.Text = "" Then
	ausgabe = ausgabe & vbCrLf & """" & st_ele.Tag & """"

    st_ele.SetFocus
        
	End If
    End If

 Next
 MsgBox ausgabe & vbCrLf & vbCrLf & " darf nich leer bleiben.", vbCritical

   Exit Sub


End Sub