Guten Morgen,
ich lade eine Liste in eine Listbox, wenn ich einen Artikel anklicke, soll dieser aus der Liste gestrichen werden.
Das geht gut.
Aber wie kriege ich es hin, dass dieser Artikel auch aus der Listbox verschwindet?
Irgendwie habe ich das mit RemoveItem nicht richtig gemacht.
Folgender Code:
Private Sub lsbProdCanc_Click()
Dim such As String
Dim bez As Range
such = lsbProdCanc.Value
abfr = MsgBox("Soll dieses Produkt aus der Bestelliste gelöscht werden ?", vbExclamation + vbYesNo)
If abfr = vbYes Then
Sheets("Liste").Select
For Each c In Sheets("Liste").Range("C21:C1000")
If c.Value = such Then
Set bez = c.Offset(0, 1)
abfr = MsgBox(" Soll die Bestellnummer " & such & " " & bez & " wirklich aus der Bestelliste gelöscht werden? ", vbExclamation + vbYesNo)
If abfr = vbYes Then
Rows(c.Row).Delete
'lsb wird aktualisiert
lsbProdCanc.RemoveItem (lsbProdCanc.Value) 'HIER LIEGT DAS PROBLEM !!
Exit For
Else
Exit Sub
End If
End If
Next c
End If
Kann mir jemand weiterhelfen?
Vielen Dank vorab,
Michael