Thema Datum  Von Nutzer Rating
Antwort
10.01.2024 20:30:06 Daniel
NotSolved
10.01.2024 22:50:23 xlKing
NotSolved
11.01.2024 08:10:20 Daniel
NotSolved
Blau Liste von dictionaries in zwei Schleifen durchlaufen
11.01.2024 20:19:50 xlKing
Solved
17.01.2024 17:09:00 Daniel
NotSolved
11.01.2024 07:56:41 Mase
NotSolved
11.01.2024 08:05:00 Daniel
NotSolved
11.01.2024 15:22:50 Mase
NotSolved
11.01.2024 16:21:23 Daniel
NotSolved
11.01.2024 20:26:38 Mase
Solved
11.01.2024 20:43:02 Daniel
NotSolved
11.01.2024 17:19:52 Gast8231
NotSolved
11.01.2024 20:07:08 Daniel
NotSolved
12.01.2024 06:08:31 Gast32600
Solved
17.01.2024 21:43:22 Daniel
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
11.01.2024 20:19:50
Views:
140
Rating: Antwort:
 Nein
Thema:
Liste von dictionaries in zwei Schleifen durchlaufen

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.01.2024 20:30:06 Daniel
NotSolved
10.01.2024 22:50:23 xlKing
NotSolved
11.01.2024 08:10:20 Daniel
NotSolved
Blau Liste von dictionaries in zwei Schleifen durchlaufen
11.01.2024 20:19:50 xlKing
Solved
17.01.2024 17:09:00 Daniel
NotSolved
11.01.2024 07:56:41 Mase
NotSolved
11.01.2024 08:05:00 Daniel
NotSolved
11.01.2024 15:22:50 Mase
NotSolved
11.01.2024 16:21:23 Daniel
NotSolved
11.01.2024 20:26:38 Mase
Solved
11.01.2024 20:43:02 Daniel
NotSolved
11.01.2024 17:19:52 Gast8231
NotSolved
11.01.2024 20:07:08 Daniel
NotSolved
12.01.2024 06:08:31 Gast32600
Solved
17.01.2024 21:43:22 Daniel
NotSolved