alle Daten user form löschen
05.01.2004 19:40:06
Jonathan
Ich habe hier (von Dieter Klemke) folgenden Code erhalten, um alle Daten in meiner UserForm zu löschen:
Private Sub Datenlöschen_Click()
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then ObCb.Value = ""
If TypeName(ObCb) = "ComboBox" Then ObCb.ListIndex = -1
Next ObCb
End Sub
- Vielen Dank dafür -
nun ist mir aber aufgefallen, dass alle Daten bis auf aktivierte Kontrollkästchen gelöscht werden. Ich möchte, dass auch diese deaktiviert werden....
wie kann ich das in den Code mit einbauen?
Danke.
Jonathan