Hello NG,

I have a worksheet with thousends of rows. I want to list all different
values in a listbox. Like in the Excel Autofilter feature (where are
all different elements of a column listed). But how can I get this
list?

I need a fast algo, because I want to do it for all columns. Sometimes
the .xls file uses all 65.000 rows. So hole file size can be bigger
than 100MB.


Best wishes

Peter Farge

Check out
http://www.contextures.com/xladvfilter01.html#FilterUR

Sheets("Sheet1").Columns("A").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Sheet2").Range("A1"), _
Unique:=True



--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message ups.com...
Hello NG,

I have a worksheet with thousends of rows. I want to list all different
values in a listbox. Like in the Excel Autofilter feature (where are
all different elements of a column listed). But how can I get this
list?

I need a fast algo, because I want to do it for all columns. Sometimes
the .xls file uses all 65.000 rows. So hole file size can be bigger
than 100MB.


Best wishes

Peter Farge

Thanks a lot!
I was looking for a command like this for hours. Thanks:-)