Sub
Route_Anzeigen()
Dim
uebergabepunkt
As
String
Dim
gaesteliste
As
New
Collection, gl
As
Collection
Dim
zwischenstationen
As
Object
, zw, g, s
As
String
Set
zwischenstationen = CreateObject(
"Scripting.Dictionary"
)
uebergabepunkt =
"Oklahoma"
gaesteliste.Add
"Günther"
gaesteliste.Add
"Heinz"
zwischenstationen.Add uebergabepunkt, gaesteliste
Set
gaesteliste =
Nothing
uebergabepunkt =
"Manchester"
gaesteliste.Add
"Günther"
zwischenstationen.Add uebergabepunkt, gaesteliste
Set
gaesteliste =
Nothing
For
Each
zw
In
zwischenstationen
Set
gl = zwischenstationen(zw)
s = zw &
": "
For
Each
g
In
gl
s = s & g &
", "
Next
g
Debug.Print Left(s, Len(s) - 2)
Next
zw
End
Sub