Fehler im Umgang mit Dictionary

ParentKeys = Parent.Keys For i = UBound(ParentKeys) To LBound(ParentKeys) Step -1 ChildKeys = Parent(ParentKeys(i)).Keys For j = LBound(ChildKeys) To UBound(ChildKeys) Step 1 sht.Cells(2, Spalte).Value = ParentKeys(i) & "/" & ChildKeys(j) & " - " & Child(ChildKeys( _ j)) Next j Next i

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
an den Namen liegt es per se mal nicht. Habe das auch mal mit Par und Chi versucht - Ergebnis unverändert. Verstehe deinen Punkt, aber solange es grundsätzlich nicht läuft will ich erst mal das Problem in den Griff bekommen (was ja nix mit dem Namen zu tun hat).
Zum Thema "Nachbauen": Ich habe versucht das Problem so genau wie möglich mit so wenig Code wie nötig zu beschreiben. Natürlich könnte ich auch die anderen 500 Zeilen Code noch dazu packen, aber am Ende hätte ich angenommen sind diese irrelevant für das Lösen des Problems.
Was jetzt genau in Par und Chi drin steht und wie ich das befüllt habe ist ja zweitrangig bei der Frage wie ich auf das richtige Chi-Element zugreifen kann beim drüber iterieren. Das konkrete Problem liegt bei der Art wie ich versuche auf den Value des Chi-Objekts zuzugreifen, was offensichtlich falsch ist.
Wenn es der Lösung meines Problems aber hilft will ich euch gern eine entsprechende Beispiel Prozedur zur Verfügung stellen:


Sub test()
Dim Par As Object, Chi As Object
Dim zahl As Single
Set Par = CreateObject("Scripting.Dictionary")
For k = 1 To 2 Step 1
Debug.Print "Chi-Elemte für Parent " & k
For l = 1 To 2 Step 1
Set Chi = CreateObject("Scripting.Dictionary")
zahl = l * Rnd()
Chi(l) = zahl
Debug.Print zahl
Next l
Par.Add k, Chi
Next k
Debug.Print ""
Debug.Print "Schleife über Par und deren Chi"
For Each i In Par.Keys
'ChildKeys = Par(i).Keys
For Each j In Par(i).Keys
Debug.Print i & "/" & j & " - tbd " ' & Chi(ChildKeys(j))
Next j
Next i
End Sub

Habs jetzt mal mit for each versucht - Ergebnis wird nicht besser.
Die Ausgabe dazu sieht so aus:

Chi-Elemte für Parent 1
0,7055475
1,066848
Chi-Elemte für Parent 2
0,5795186
0,5791249
Schleife über Par und deren Chi
1/2 - tbd
2/2 - tbd

Bis zum Value von Chi komm ich noch gar nicht weil mir aufgefallen ist, dass ich ja auch nur 1x die innere Schleife durchlaufe - obwohl ich 2 Einträge drin habe :(

For k = 1 To 2 Step 1 Debug.Print "Chi-Elemte für Parent " & k Set Chi = CreateObject("Scripting.Dictionary") For l = 1 To 2 Step 1 zahl = l * Rnd() Chi(l) = zahl Debug.Print zahl Next l Par.Add k, Chi Next k

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread