RemoveItem aus liste
17.06.2003 09:19:57
schnukker
Dim i As Long, lasti As Long
last = ListBox1.ListCount - 1
For i = 0 To last
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.Value
ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1)
---> ListBox1.RemoveItem (ListBox1.ListIndex)
End If
Next
Wäre nett wenn mir jemand weiterhelfen würde
Danke