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