doppelte EInträge in Listbox
16.01.2004 16:50:41
Michael
ichhabe eine Listbox in einer USerform und möchte aus dieser die doppelten Einträge entfernen. Dazu habe ich in den Beispielarbetsmappen einen Code gefunden un auf meine Belange angepassr:
Sub Doppelte()
Dim arr() As String
Dim var As Variant
Dim intCounter As Integer, intItem As Integer
ReDim Preserve arr(0)
arr(0) = usfSAP.lstErgebnis1.List(0)
For intCounter = 1 To usfSAP.Controls("lstErgebnis1").ListCount - 1
var = Application.Match(usfSAP.lstErgebnis1.List(intCounter), arr, 0)
If IsError(var) Then
intItem = intItem + 1
ReDim Preserve arr(intItem)
arr(intItem) = usfSAP.lstErgebnis1.List(intCounter)
End If
Next intCounter
usfSAP.lstErgebnis1.List = arr
End Sub
Ich schaffe es nur nicht das bei doppelte Einträgen in der 1. Spalte die gesamte Zeile meiner 6spaltigen Listbox entfernt wird.
Vielen DAnk für eure Hilfe Gruß Michael