Ich habe was kniffliges (zumindest für mich):
Ich will schnell (!!!) eine Spalte mit ca. 10.000 Zeilen
durchforsten und als Ergebnis ein Feld erhalten, in dem
jedes Vorkommen nur einmal erscheint. Also ohne Doppelpostionen.
1) Wie es mit Schleifen funktioniert ist mir klar - ist aber zu langsam.
2) So klappt es schon:
Range("BA17:BA10000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("IV:IV"), Unique:=True
Das klappt so auch wunderbar schnell.
Aber !: Ich will das Ergebnis nicht erst wieder auf ein Blatt kopieren, bevor ich es in ein Feld einlese.
3) Daher will ich es etwa so anstellen:
DIM arrOhneDoppelte as VARIANT
arrOhneDoppelte = evaluate(Range("BA17:BA10000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("IV:IV"), Unique:=True))
Allerdings ist mir das CopyToRange dabei im Weg.
Über evaluate(...) kann ich doch auch Ergebnisse von Formulararrays direkt Variablen zuweisen.
Weiß jemand ob dies auch mit AndvancedFilter funktioniert ?
Ihr würdet mir und bestimmt auch anderen riesig helfen !
Grüße
Zacharias