Werte vergleichen Zellen/DropDown-Eintrag
02.07.2003 13:55:56
Marcus
ein DropDown soll aus den Einträgen einer Spalte befüllt werden - allerdings ohne Duplikate in der Spalte.
Mit folgendem Sub möchte ich in zwei Schleifen doppelte Einträge aufspüren und nicht berücksichtigen. Die Exception des Debuggers weist auf einen ungültigen ListIndex hin. Mir scheint, ich setze "List" bzw. ein verwandtes Objekt falsch ein.
Kann mir jemand auf die Sprünge helfen?
Vielen Dank!!
Marcus
Private Sub Workbook_Open()
Dim iZeile As Long
Dim iSelect
Dim WS As Worksheet
Dim DoubleIndex
Set WS = Worksheets("Angebote")
With Worksheets("Pflege").ComboBox1
.Clear
For iZeile = 2 To WS.Range("C65536").End(xlUp).Row
DoubleIndex = 1
For iSelect = 1 To Worksheets("Pflege").ComboBox1.ListCount
If WS.Cells(iZeile, 3) = Worksheets("Pflege").ComboBox1.List(iSelect) Then _
DoubleIndex = DoubleIndex + 1
Next iSelect
If DoubleIndex < 2 Then .AddItem WS.Cells(iZeile, 3)
Next iZeile
End With
Worksheets("Pflege").Activate
End Sub
Anzeige