Feld an scripting.dictionary zuweisen

Sub Unikate1()
Dim LZ&: LZ = wsList.Cells(Rows.Count, 1).End(xlUp).Row
Dim myArr() As Variant, Dic As Object, i&, n&
Set Dic = CreateObject("Scripting.Dictionary")
ReDim myArr(LZ)
With wsList
For i = 2 To LZ
If wsList.Cells(i, 1).Value = Uf1.Lb1.Value Then
myArr(i - 1) = .Cells(i, 2).Value
End If
Next
ReDim Preserve myArr(i - 2)
For n = LBound(myArr) To UBound(myArr)
Dic(myArr(n, 1)) = 0
Next
End With
wsNamen.Range("B1").Resize(Dic.Count, 1) = Application.Transpose(Dic.keys)
End Sub