Dictionary: Value als Dictionary

Dim dict As New Scripting.Dictionary 'Key = Monat, Value = [Key = Jahr, Value = Wert]

Dim value As New Scripting.Dictionary

Dim value2 As New Scripting.Dictionary

Public Sub test()
value.Add key:=2021, Item:=123
dict.Add key:=5, Item:=value
'jetzt sollte in dict folgendes stehen: Key1 = 5, Value1 = (Key2 = 2021, Value2 = 123)
Set value2 = dict(5)
value2(2021) = value2(2021) + 5
'jetzt sollte in dict folgendes stehen: Key1 = 5, Value1 = (Key2 = 2021, Value2 = 128); tut es aber nicht...
End Sub