ich weise einem Array einen Bereich zu,
arrValues = Range(Cells(18, 2), Cells(72, 8))
wie bekomme ich jetzt alles in eine Spalte ohne Doppelte
gruss Ivonne
Dim a
Dim arrErg
Dim D as Object
Dim arrValues
arrValues = Range(Cells(18, 2), Cells(72, 8))
set D = createobject("Scripting.dictionary")
for each a in arrValues
D(a) = 0
Next
arrErg = Worksheetfunction.Transpose(D.Keys)
cells(1, 1).resize(Ubound(arrErg, 1) - LBound(arrErg, 1) + 1, 1).Value =arrErg
gruß Daniel
Die Datei https://www.herber.de/bbs/user/92378.xlsm wurde aus Datenschutzgründen gelöscht
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen