Ich möchte alle Felder zu Pflichtfeldern in einer Form machen und hab das so gelöst:
Dim objtxt As Object
For Each objtxt In UserForm2.Controls
If TypeName(objtxt) = "TextBox" Or (TypeName(objtxt) = "ComboBox") Then
If objtxt.Value = "" Then
MsgBox "Es wurden nicht alle Felder befüllt!", 48
objtxt.SetFocus
Exit Sub
End If
End If
Next
und nun würde ich gerne ein paar felder davon ausnehmen. Ich habe mit Select Case herumprobiert komme aber irgendwie nicht weiter. Hat jemand eine Idee?