Neuer Eintrag in Listbox
24.12.2020 12:59:28
Longo
Mit folgendem Code füge ich einen neuen Eintrag in die Listbox ein:
Private Sub CommandButton5_Click()
'Neuen Eintrag zur Listbox hinzufügen
Dim lngZeileNeu As Long
lngZeileNeu = Me.ListBox1.ListCount
Me.ListBox1.AddItem Me.DTPicker1
Me.ListBox1.Column(1, lngZeileNeu) = Me.TextBox1.Text
Me.ListBox1.Column(2, lngZeileNeu) = Me.ComboBox1.Value
Me.ListBox1.Column(3, lngZeileNeu) = Me.ComboBox2.Value
Me.ListBox1.Column(4, lngZeileNeu) = Me.ComboBox3.Value
Me.ListBox1.Column(5, lngZeileNeu) = Me.ComboBox4.Value
Me.ListBox1.Column(6, lngZeileNeu) = Me.ComboBox5.Value
Me.ListBox1.Column(7, lngZeileNeu) = Me.ComboBox6.Value
Me.ListBox1.Column(8, lngZeileNeu) = Me.ComboBox7.Value
Me.ListBox1.Column(9, lngZeileNeu) = Me.ComboBox8.Value
Me.ListBox1.Column(10, lngZeileNeu) = Me.ComboBox9.Value
Me.ListBox1.Column(11, lngZeileNeu) = Me.TextBox2.Value
Me.ListBox1.Column(12, lngZeileNeu) = Me.TextBox3.Value
End Sub
Vielen Dank.
Anzeige