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:
439
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?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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