AW: alle Felder in Form zu Pflichtfeldern mit Ausnahme
18.10.2018 16:06:17
Daniel
Hi
im Prinzip so, wenn es wenige Ausnahmen gibt:
For Each objtxt In UserForm2.Controls
Select Case TypeName(objtxt)
Case "TextBox", "Combobox"
Select Case objtxt.name
Case "Textbox1", "Textbox5", ... 'hier die Namen aller Ausnahmen auflisten
Case else
If objtxt.Value = "" Then
MsgBox "Es wurden nicht alle Felder befüllt!", 48
objtxt.SetFocus
Exit Sub
End If
end Select
End Select
Next
wenn es viele Ausnahmen gibt, kannst du auch die TAG-Eigenschaft der Steuerelemente nutzten.
die TAG-Eigenschaft ist vorhanden, wird aber von VBA nicht genutzt und steht dir für solche Fälle zur verfügung.
1. schreibe für alle Steuerelemente, die befüllt werden müssen, in der Eigenschaftsliste in die Eigenschaft TAG den Text "Mussfeld"
2. ergänze deine Schleife um die Abfrage
If objtxt.Tag = "Mussfeld" then
hätte auch den Vorteil, dass du nicht in den Code eingreifen musst, wenn du weitere Steuerelemente hinzufügst, oder es sich ändert, ob die Box ein Mussfeld ist.
Gruß Daniel