Schreibzugriff auf Array in Dictionary Object-Item

Hallo liebe Excelfreunde,
es ist möglich im Dictionary Object auch Arrays als Items abzulegen:


Dim MyDic As Object
Set MyDic = CreateObject("Scripting.Dictionary")
MyDic.Add "Obst", Array("Äpfel", "Birnen", "Kirschen", "Weintrauben", "Johannisbeeren")

Die einzelnen Array-Werte können auch einfach abgerufen werden:


MsgBox MyDic.Item("Obst")(4) 'Liefert Johannisbeeren

Eine direkte Änderung der Array-Werte ist mir jedoch nicht gelungen:

    MyDic.Item("Obst")(4) = "Blaubeeren" 'Ersetzen der "Johannesbeeren" durch "Blaubeeren"
MsgBox MyDic.Item("Obst")(4) 'Liefert weiterhin Johannisbeeren

...der Code wird zwar ohne Fehlermeldung durchlaufen, bewirkt aber keine Änderung.
Es ist natürlich möglich das Array-Item des Dictionary Objects in ein neues Array auszulesen, dieses zu ändern und das alte Item zu überschreiben. Aber ist dieser Umweg wirklich notwendig? Kann mir jemand sagen ob/wie ich direkt im Dictionary Object einzelne Array-Werte ändern kann?
Viele Grüße
Martin

Hallo Jungs,
hat ein bisschen gedauert bis ich Zeit hatte. Also, hier etwas zum Spielen. Man könnte aus der Item-Methode noch die Default-Methode machen, dann würden die Ausdücke kürzer. Oder eine Enumerator einbauen, dann könnte man die Warengruppen und deren Artikel mit For Each durchlaufen.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub test()

    Dim objWarengruppe As cls_Warengruppe
    Set objWarengruppe = New cls_Warengruppe

    Call objWarengruppe.Add("Obst", "Ananas", "Birne", "Banane", "Kirsche")

    MsgBox objWarengruppe.Item("Obst").Item(1).Artikel

    objWarengruppe.Item("Obst").Item("Ananas").Artikel = "Apfel"

    MsgBox objWarengruppe.Item("Obst").Item(1).Artikel

    Call objWarengruppe.Item("Obst").Add("Kiwi")

    MsgBox objWarengruppe.Item("Obst").Item(objWarengruppe.Item("Obst").Count).Artikel

    Call objWarengruppe.Add("Gemüse", "Korotte", "Gurke", "Rettich", "Rotkohl")

    MsgBox objWarengruppe.Item("Obst").Item(1).Artikel & "-" & _
        objWarengruppe.Item("Obst").Item(5).Artikel & "-" & _
        objWarengruppe.Item("Gemüse").Item(4).Artikel

    MsgBox objWarengruppe.Item("Gemüse").Count

    MsgBox objWarengruppe.Item("Gemüse").Item(2).Artikel

    Call objWarengruppe.Item("Gemüse").Delete("Gurke")

    MsgBox objWarengruppe.Item("Gemüse").Item(2).Artikel

    MsgBox objWarengruppe.Item("Gemüse").Count

    Set objWarengruppe = Nothing

End Sub

' **********************************************************************
' Modul: cls_Warengruppe Typ: Klassenmodul
' **********************************************************************

Option Explicit

Private mobjWarengruppe As Collection
Private mstrWarengruppe As String

Private Sub Class_Initialize()
    Set mobjWarengruppe = New Collection
End Sub

Private Sub Class_Terminate()
    Set mobjWarengruppe = Nothing
End Sub

Friend Sub Add(strWarengruppe As String, ParamArray vntArtikel() As Variant)
    Dim lngIndex As Long
    Dim objArtikel As cls_Artikel
    Set objArtikel = New cls_Artikel
    For lngIndex = LBound(vntArtikel) To UBound(vntArtikel)
        Call objArtikel.Add(CStr(vntArtikel(lngIndex)))
    Next
    mobjWarengruppe.Add objArtikel, strWarengruppe
    Set objArtikel = Nothing
End Sub

Friend Function Item(vntIndex As Variant) As cls_Artikel
    Set Item = mobjWarengruppe(vntIndex)
End Function

' **********************************************************************
' Modul: cls_Artikel Typ: Klassenmodul
' **********************************************************************

Option Explicit

Private mobjArtikel As Collection
Private mstrArtikel As String

Private Sub Class_Initialize()
    Set mobjArtikel = New Collection
End Sub

Private Sub Class_Terminate()
    Set mobjArtikel = Nothing
End Sub

Public Property Get Artikel() As String
    Artikel = mstrArtikel
End Property

Public Property Let Artikel(ByVal strArtikel As String)
    mstrArtikel = strArtikel
End Property

Public Sub Add(strArtikel As String)
    Dim objArtikel As cls_Artikel
    Set objArtikel = New cls_Artikel
    objArtikel.Artikel = strArtikel
    mobjArtikel.Add objArtikel, strArtikel
    Set objArtikel = Nothing
End Sub

Public Function Item(vntIndex As Variant) As cls_Artikel
    Set Item = mobjArtikel.Item(vntIndex)
End Function

Public Function Count() As Long
    Count = mobjArtikel.Count
End Function

Public Sub Delete(vntIndex As Variant)
    Call mobjArtikel.Remove(vntIndex)
End Sub

Gruß
Nepumuk

Schreibzugriff auf Array in Dictionary Object-Item

Forumthread: Schreibzugriff auf Array in Dictionary Object-Item

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial