einträge in userform löschen
22.05.2004 23:09:25
Alex
Da ich meinen letzte Anfrage nicht unmittelbar beantwortet habe - möchte ich nun auf diesem Weg Rainer danken, der mir folgenden Codes gepostet hatte -
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
Nun, der code funktioniert, nur muss ich für jedes Feld (Box etc) einmal die Schaltfläche klicken. Kann man das so schreiben, dass alle (oder eine) Userform durchlaufen werden und nur ein Klick notwendig ist.
Danke für eure Hilfe
Gruss Alex
Anzeige