Dictionary -> ListBox

[Fennek]

Hallo,

ich möchte den Inhalt eines Dictionaries in die Listbox einer UserForm eintragen.

Mein Versuch:

Userform mit Listbox1 3 Spalten (0-2)
DD: Dictionary

Mit einem Array(4,2) ging es.

Code:

sub UserForm_Initialize()
dim iAr
redim iAr(DD.Count, 2)
iAr = Application.transpose(Array(dd.items, dd.keys))
ListBox1.List = iAr

Die Fehlermeldung ist:

Laufzeitfehler: -2147352571
Eigenschaft Value konnte nicht zugeordnet werden. Typkonflikt

Vielen Dank

mfg

[snb]

Kein Problem mit:

Code:

Private Sub UserForm_Initialize()
  With CreateObject("scripting.dictionary")
    For j = 1 To 10
      .Item("A" & j) = "aa" & j
    Next
    ListBox1.List = Application.Transpose(Array(.keys, .items))
  End With
End Sub

PS. Warum Redim ?

redim iAr(DD.Count, 2)
iAr = Application.transpose(Array(dd.items, dd.keys))

Die Zeile sind widersprüchlich.

[Fennek]

@snb

Danke

(Peinlich: ich hatte das .List an me.Listbox1 vergessen)