Clever-Excel-Forum

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

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 ?

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

Die Zeile sind widersprüchlich.

@snb

Danke

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

Fennek

snb

Fennek