alle textboxen en comboboxen leeg maken

[ewh]

in een userform1 staan veel textboxen en comboboxen nadat de gebruiker de ingevulde data heeft opgeslagen ( dmv VBA ) wil ik graag in een keer alle textboxen en comboboxen leeg maken.

wie kan helpen hier mee?

 

[edmoor]

Probeer dit eens:

Sub LeegMaken()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        Select Case TypeName(ctrl)
            Case "TextBox", "ComboBox": ctrl.Value = ""
        End Select
    Next ctrl
End Sub

 

[HSV]

dim ctrl as control
for each ctrl in controls
 if typename(ctrl) = "TextBox" or typename(ctrl) = "ComboBox" then ctrl = ""
next ctrl

 

[edmoor]

Of:

Dim ctrl As Control
For Each ctrl In Controls
    If InStr("TextBox,ComboBox", TypeName(ctrl)) > 0 Then ctrl = ""
Next ctrl

 

[ewh]

mannen bedankt , wel grappig dat er meerdere oplossing zijn

 

[ewh]

sorry , helaas even geveild door een griepje, maar nu weer verder
alle codes geprobeerd en krijgen alle maal een foutmelding

ik heb de code een module opgenomen , maar heb het idee dat hij wel moet verwijzen naar de userform1 dus
code wat aangepast

Sub userform_leegmaken()
UserForm1.Show
Dim ctrl As Control
For Each ctrl In Controls
 If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then ctrl = ""
Next ctrl
End Sub

maar zonder resultaat , war doe ik niet goed ?

 

[edmoor]

Die code hoort niet in een module maar achter het userform zelf, bijvoorbeeld in de Userform_Initialize.

 

[ewh]

opgelost de eerste oplossing egnomen was vergeten Me. te wijzigen in userform1.