Listbox ändern
23.12.2020 13:19:05
Longo
Ich habe eine Listbox mit 13 Spalten. Beim Klick auf eine Zeile in der Listbox wird der Inhalt auf verschiedene Comboboxen übertragen. Nun möchte ich, nachdem ich über die Comboboxen Änderungen der Einträge vorgenommen habe, den Eintrag entsprechend in der Listbox anpassen.
Ich habe bisher folgenden Code:
Private Sub CommandButton2_Click()
'Änderungen in die Listbox übertragen
Dim lngZeile As Long
If Me.ListBox1.ListIndex -1 Then
lngZeile = Me.ListBox1.ListIndex
Me.ListBox1.ListIndex = -1
Me.ListBox1.Column(0, lngZeile) = Me.DTPicker1
Me.ListBox1.Column(1, lngZeile) = Me.TextBox1.Text
Me.ListBox1.Column(2, lngZeile) = Me.ComboBox1.Value
Me.ListBox1.Column(3, lngZeile) = Me.ComboBox2.Value
Me.ListBox1.Column(4, lngZeile) = Me.ComboBox3.Value
Me.ListBox1.Column(5, lngZeile) = Me.ComboBox4.Value
Me.ListBox1.Column(6, lngZeile) = Me.ComboBox5.Value
Me.ListBox1.Column(7, lngZeile) = Me.ComboBox6.Value
Me.ListBox1.Column(8, lngZeile) = Me.ComboBox7.Value
Me.ListBox1.Column(9, lngZeile) = Me.ComboBox8.Value
Me.ListBox1.Column(10, lngZeile) = Me.ComboBox9.Value
Me.ListBox1.Column(11, lngZeile) = Me.DTPicker2
Me.ListBox1.Column(12, lngZeile) = Me.DTPicker3
Me.ListBox1.ListIndex = lngZeile
End If
End Sub
Ebenfalls möchte ich über einen Button die ausgewählte Zeile löschen können:
Private Sub CommandButton3_Click()
'Eintrag löschen in der Listbox
With ListBox1
If Me.ListBox1.ListIndex -1 Then
Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)
End If
End With
End Sub
Anzeige