Nicht alle Textboxen abfragen
26.02.2017 10:36:24
Marc
ich möchte alle Textboxen abfragen ob Sie ein Inhalt enthalten, einer jedoch soll nicht abgefragt werden. Mit dem folgenden Code wollte ich das realiseren, jedoch weiß nicht wie ich in diesem Fall sagen soll, das er die "Textbox7" zb. nicht abfragen soll.
Die Textboxen haben alle Namen, zb "txt_Beschreibung".
Über Ratschläge wurde ich mich freuen.
Danke und Gruß
Private Sub Auschnitt()
Dim UF As UserForm
Dim ctl As Control
For Each UF In UserForms
For Each ctl In UF.Controls
If TypeOf ctl Is msforms.TextBox Then
If ctl.Text = "" Then
MsgBox " Es wurden nicht alle Plichtfelder ausgefüllt."
ctl.SetFocus
Exit Sub
End If
End If
Next
Next
End Sub
Anzeige