Office: (Office 2016) Dictionary :: Item zu einem Key auslesen

Excel VBA :: Dictionary :: Item zu einem Key auslesen

Ich habe ein Dictionary-Objekt angelegt in dem zu Keys (d.h. Namen) Items (d.h. Adressen) gespeichert werden.
Es wird beim befüllen des Dictionary-Object immer geprüft, ob es einen Key schon gibt.

Code:

    For iRow = 2 To nDataRows
        
            '***************************************************************************************
            ' Die Abfrage if not .Exists verhindert, dass bereits vorhandene Keys eingetragen werden
            ' Als Item wird die Adresse eingetragen
             
            If Not objDictionaryNamen.Exists(Cells(iRow, 5).Value) Then
            
                objDictionaryNamen.Add Cells(iRow, 5).Value, Cells(iRow, 6).Value
                
            End If
            
    Next

Mit dem Dictionary-Objekt befülle ich eine Combobox:

Code:

    
ComboBox3.List = objDictionaryNamen.keys

Wenn man dann in der ComoboBox einen Wert selektiert, werte ich aus, welcher Wert selektiert wurde, z.B. "Thomas".
Jetzt möchte ich aus dem Dictionary dem Key (d.h. Name) entsprechende Item auswerten (d.h. Adresse) und in ein Formular eintragen.
Alles was ich gefunden habe, ist nicht so richtig brauchbar, beispielsweise:

Code:

shReport.Range("B1").Resize(dict.Count, 1).Value = WorksheetFunction.Transpose(dict.Items)
    

Code:

For i = 0 To dict.Count - 1
    Debug.Print dict.Keys(i), dict.Items(i)
Next i

Any Idea?

 

Folgendes funktioniert:

Code:

key= "Thomas"

Me.Textbox.Text = objDictionaryNamen(key)

Das ist so simpel und unvorstellbar, dass es nirgendwo dokumentiert ist.