Hallo,

Struktur der Excel Liste würde helfen.

Wenn die Werte, die übernommen werden sollen, nur einmal vorkommen probiere es mal so:

Dim strTestArray() as string 
Dim LoZeile as long

LoZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Datentabelle muss aktiv sein

ReDim strTestArray(1 To LoZeile)

for i = 1 to LoZeile
strTestArray(i) = cells(i,1).value 'an deine tabelle anpassen
next i

end sub

Ungetestet

MFG