Würde mal wieder eure Hilfe benötigen.
Ich habe in einer Userform Textfelder, Checkboxes und Kombinationsfelder. Ich möchte nun über eine Schaltfläche die Einträge löschen.
Wie kann ich das machen ?
Danke schon mal für eure Hilfe !
Gruss Alex
Private Sub CommandButton1_Click()
'Achtung
'TypeName = Case Sensitiv !!
'Checkbox wird nicht erkannt
'CheckBox dagegen schon
Dim i As Integer
Dim cb As Control
i = 0
For Each cb In Me.Controls
Debug.Print TypeName(cb)
Select Case TypeName(cb)
Case "CheckBox"
cb = False
Case "OptionButton"
cb = False
Case "ListBox"
cb.ListIndex = -1
Case "ComboBox"
cb = ""
Case "TextBox"
cb.Value = ""
End Select
Next
End Sub