AW: AW Listbox
14.05.2018 15:13:43
Daniel
Hi
du musst die Löschaktionen in der Variable Order durchführen und dann diese Variable wieder komplett in die Listbox schreiben.
so wie du es beim Hinzufügen einer Bestellung auch machst.
Du brauchst nur den Eintrag nicht per Schleife suchen, sondern kannst ihn über den Listindex direkt ansprechen:
Private Sub B_Artikel_loeschen_Click()
Dim x As Long
Dim Summe As Double
Dim z As Long
If ListBox1.ListIndex = -1 Then Exit Sub
x = ListBox1.ListIndex + 1
If Order(x, 1) > 1 Then
Order(x, 1) = Order(x, 1) - 1
Else
For z = x To Order(0, 0)
For s = 0 To UBound(Order, 2)
Order(z, s) = Order(z + 1, s)
Next
Next
Order(0, 0) = Order(0, 0) - 1
End If
With ListBox1
.Clear
For z = 1 To Order(0, 0)
.AddItem
.List(.ListCount - 1, 0) = Order(z, 0)
.List(.ListCount - 1, 1) = Order(z, 1)
.List(.ListCount - 1, 2) = Format(Order(z, 2) * Order(z, 1), "Currency")
Summe = Summe + Order(z, 2) * Order(z, 1)
TextBox1 = Format(Summe, "Currency")
Next z
End With
End Sub
Gruß Daniel