ich würde gerne ein Array direkt in ein Dictionary eintragen, dieses direkt befüllen und direkt abfragen, was mir aber nicht gelingt.
Es soll so gehen, wie man auch ein Dictionary direkt eintragen kann.
Damit man besser versteht, was ich meine:
Hier ein Beispiel, in dem gezeigt wird, wie es mit einem Dictionary geht und dann gezeigt wird, dass es mit einm Array nicht geht.
Sub Beispiel()
Dim Verzeichnis As Object
Dim Raster As Variant
ReDim Raster(8 To 100, 1 To 20)
Set Verzeichnis = CreateObject("Scripting.Dictionary")
'Im Verzeichnis wird ein Dictionary erstellt
Verzeichnis.Add "Montag", CreateObject("Scripting.Dictionary") 'Key:="Montag", Item:=Neues Dictionary
'In diesem wird ein Eintrag hinzugefügt und dann abgerufen.
Verzeichnis("Montag").Add "Umsatz", "Erdbeere" 'Key:="Umsatz", Item:="Erdbeere"
Debug.Print Verzeichnis("Montag")("Umsatz") 'liefert "Erdbeere"
With Verzeichnis("Montag")
Debug.Print .Item("Umsatz") 'liefert "Erdbeere"
End With
'Im Verzeichnis soll ein leeres Array erstellt werden, weiß aber nicht, wie.
'Habe deshalb ein bestehendes Array eingefügt,
Verzeichnis.Add "Tabelle", Raster
'In dieses Array soll etwas eingetragen werden
Verzeichnis("Tabelle")(50, 15) = "Rosine"
'Der Abruf liefert nicht das gewünschte Ergebnis
Debug.Print Verzeichnis("Tabelle")(50, 15) 'liefert nix
With Verzeichnis("Tabelle")
Debug.Print .Item(50, 15) 'liefert einen Fehler
End With
End Sub
Könnt Ihr mir helfen und sagen, warum das nicht geht und wie es ginge?LG, Franz