kleines Problem mit ner Listbox

[Girom]

Hallo zusammen,

ich habe folgendes Problem:

eine Listbox mit sagen wir 3 Einträgen (Wurst, Käse, Schinken)
jetzt möchte ich Käse anhand des Wertes (also "Käse" - nicht 2 oder so) aus der Liste haben. Da jetzt ein einfaches selllist.removeitem(Käse) wohl nicht geht brauch ich eine Schleife... und hier hörts auf.

Ein Versuch war:
                    Dim l As Long
                    For l = 0 To selllist.ListCount - 1
                      If suchfood(0) Then
                            selllist.RemoveItem l
                      End If
                    Next
Naja, war wie gesagt nen Versuch - ein ganz netter mehr aber auch nicht. Ich hoffe ihr könnt mir helfen.

MfG
Girom

[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

[Girom]

Hallo Jörg,

viellen Dank, du hast mir den Tag gerettet :) - nein wirklich, du glaubst nicht wielang ich das versucht hab. Danke.

Girom