Hallo und guten Tag,
in einer Anwendung benutze ich in einer Userform neben einigen normalen Text-Eingabefelder auch vier Comboboxen. Nach der Speicherung der Daten wird die Userform für einen neuen Datensatz bereit gestellt.
Alle Felder sollen für die Eingabe der neuen Daten gelöscht werden. Dieses möchte ich mit dem Makro Initial durchführen. Während die Text-Felder korrekt gelöscht werden, bleibt der Code bei der zweiten ComboBox hängen mit dem Hinweis Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftsfeldes ungültig.
Was kann da falsch sein? Bitte um Hilfe.
Sub ComboBox11_Change()
Dim c As String
Dim d As String
c = ComboBox11.List(ComboBox11.ListIndex, 0)
d = ComboBox11.List(ComboBox11.ListIndex, 1)
With TextBox33
.Value = c
End With
With TextBox39
.Value = d
End With
End Sub
Sub ComboBox12_Change()
Dim s As String
s = ComboBox12.List(ComboBox12.ListIndex, 0)
With TextBox1
.Value = s
End With
End Sub
Private Sub initial()
Dim tb As Object
Dim cb As Object
For Each tb In UserForm3.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
For Each cb In UserForm3.Controls
If TypeName(cb) = "ComboBox" Then cb.Text = ""
Next cb
UserForm3.ComboBox12.SetFocus
End Sub