|
Immer noch nicht völlig klar. Aber ich könnte mir vorstellen, dass du vielleicht sowas suchst?
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
PS: Die Funktion ValueToString ist in meiner Version noch nicht enthalten, deshalb habe ich den string der Gäste in einer Schleife berechnet.
Gruß Mr. K.
|