Code:
Sub userform_leegmaken()
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
Select Case TypeName(ctrl)
Case "TextBox", "ComboBox": ctrl.Value = ""
End Select
Next ctrl
'hier moet commandbutton5-click van userform1 worden aangeroepen
End Sub
deze code heb ik via dit forum mogen krijgen, top.
de alle text en comboboxen zijn nu leeg, maar de begin situatie is nog niet hersteld , dat doe ik met commandbutton5-click , hoe kan ik die aan roepen?