Userform - Feldereinträge löschen
07.06.2004 20:56:07
Alex
Ich stehe da vor einem Problem. Ich habe in meiner Userform zahlreiche Textfelder, Checkboxen und Comboboxen. Nun möchte ich nach dem alle Felder gefüllt, angehakt udgl. sind, per Mausklick über eine Schaltfläche die Einträge alle wieder löschen dh also zurücksetzen.
Mit dem mir bereits vor einem Monat übermittelten Code hat das nicht geklappt. Damit muss ich für jedes Feld einmal die Maustaste drücken. Das kann es ja nicht sein. Anbei der Code.
Hoffe auf eure Hilfe !
Danke
Alex
Private Sub CommandButton2_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
Anzeige