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
|