hi,



danke für die Hilfe.



hab aber was besseres gefunden :



Sub ungetestet()

Dim letzte As Long

Dim zeile As Long

letzte = Range("A65536").End(xlUp).Row

For zeile = 1 To letzte

If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(zeile, 1)), Cells(zeile, 1)) = 1 Then _

ComboBox1.AddItem Cells(zeile, 1)

Next

End Sub

---

geschrieben von Heini_net , 13.04.2006, 13:09 Uhr , 18 mal gelesen