Feld an scripting.dictionary zuweisen
Peter.H
ich vesuche mich zur Zeit an einer Auflösung unseres Maschinenparks.
Bei der Zuweisung eines Feldes (myArr) an scripting.dictionary zum füllen von Listbox2 erhalte ich den Fehler:
- Laufzeitfehler 9
- Index auserhalb des gültigen Bereichs
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
Wie wird die Zuweisung richtig programmiert?Weitere Infos sind in der Beispielmappe.
https://www.herber.de/bbs/user/70163.xls
Vielen Dank im Voraus
Gruß Peter