kleines Problem mit ner Listbox

[Jörg Lorenz]

Hi Girom,

For l = 0 To selllist.ListCount - 1
                      If suchfood(0) Then
                            selllist.RemoveItem l
                      End If
                    Next

Fange lieber von hinten an zu suchen, sonst müßtest Du noch eine Fehlerabfrage einbauen. Hier ist mal ein Beispiel:

For intI = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.List(intI) = "Wurst" Then ListBox1.RemoveItem (intI)
Next

Viele Grüße

Jörg