Sub FahrtenplanErstellung()
Dim route As Collection
Set route = New Collection
Dim gaesteliste As Collection
Set gaesteliste = New Collection
Dim zwischenstation As Object
Dim key As Variant
Dim gastName As String
Dim hotel As String
Dim uebergabepunkt As String
uebergabepunkt = "Oklahoma"
gaesteliste.Add "Günther"
Set zwischenstation = CreateObject("Scripting.Dictionary")
zwischenstation.Add uebergabepunkt, gaesteliste
route.Add zwischenstation
uebergabepunkt = "Manchester"
Set zwischenstation = CreateObject("Scripting.Dictionary")
zwischenstation.Add uebergabepunkt, gaesteliste
route.Add zwischenstation
uebergabepunkt = "Oklahoma"
gastName = "Heinz"
For Each zwischenstation In route
For Each key In zwischenstation.Keys
If key = uebergabepunkt Then
Set gaesteliste = zwischenstation(key)
gaesteliste.Add gastName
Set zwischenstation(key) = gaesteliste
Exit For
End If
Next key
PrintDictionaryContents zwischenstation
Next zwischenstation
End Sub
Sub PrintDictionaryContents(dict As Object)
Dim key As Variant
If TypeName(dict) = "Dictionary" Then
For Each key In dict.Keys
Debug.Print "Schlüssel: " & key & "; Wert: " & ValueToString(dict(key))
Next key
Else
Debug.Print "Das übergebene Objekt ist kein Dictionary."
End If
End Sub