Einträge in Userform löschen
10.09.2004 13:06:02
alex
Ich habe versucht den nachstehenden Code in meiner Userform zu verwenden. Der Beschreibung nach, sollte mit dem Code das Löschen aller Einträge (ComboBoxen, etc) möglich sein. Nachdem ich den Code einer Schaltfläche zugewiesen habe, lässt sich nur jedes Feld einzeln per Knopfdruck löschen. Manchmal gelingt es auch mit einem Klick auf den Button.
Danke für eure Hilfe
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