---

Hallo zusammen,

ich habe eine Listbox mit z.B. 10 Einträgen. 5 davon fangen mit Test an. Jetzt möchte ich die 5 Stück löschen lassen. Die Routine zum löschen habe ich schon, nur wie kriege ich jetzt die Indexe der 5 Einträge raus?

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

habe ich das richtig verstanden, das du alle Items der ListBox
die mit "Test" beginnen, entfernen möchtest?
Wenn ja, dann versuch es mal damit.

    Dim AnzItem As Integer
    Dim i As Integer
    Dim Text As String
    Dim bExit As Boolean
   
    i = 0
    bExit = False
   
    Do
        Text = List1.List(i)
        If Left(Text, 4) = "Test" Then
            List1.RemoveItem (i)
            If i = AnzItem - 1 Then
                bExit = True
            End If
        Else
            If i = AnzItem - 1 Then
                bExit = True
            Else
                i = i + 1
            End If
        End If
        AnzItem = List1.ListCount
    Loop While bExit = False

Gruss,
H. Scheurich.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen Heiko,

Wo ist die Listbox in einer Userform oder direkt in einer Tabelle (aus Formular oder aus Steuerelemente) und wie hast Du sie gefüllt ?

CU, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo H.Scheurich,

das ist es. Danke!!!!

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP