ich habe Datensätze aus Tabelle1 in Listbox1 mit 3 Spalten geladen.
Nun möchte ich 3 Textbox-Einträge an die Listbox-Datensätze anhängen. Hier bleibt nun
der Debagger bei der Zeile .AddItem Textbox1 immer hängen. Was ist falsch an dem
nachstehenden Code?
Private Sub CommandButton1_Click() 'Speichern in Listbox
With ListBox1
.AddItem TextBox1 'erste Spalte in Listbox
.List(ListCount - 1, 1) = TextBox2 'zweite Spalte in Listbox
.List(ListCount - 1, 2) = TextBox3 'dritte Spalte in Listbox
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
Gruß Wolfgang