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
, 17 mal gelesen