Hallo,
ich müsste Dictionarys die in einer Schleife befüllt werden zu einem Array hinzufügen.
Ich hätte dies mit einer Schleife innerhalb einer zweiten Schleife versucht.
Leider werden jedoch nicht die Werte gespeicher. Gibt es für Dictionarys sowas wie eine .copy Funktion?
Bzw wie könnte ich mein Vorhaben sonst realisieren?
Hier mein versuch:
ich müsste Dictionarys die in einer Schleife befüllt werden zu einem Array hinzufügen.
Ich hätte dies mit einer Schleife innerhalb einer zweiten Schleife versucht.
Leider werden jedoch nicht die Werte gespeicher. Gibt es für Dictionarys sowas wie eine .copy Funktion?
Bzw wie könnte ich mein Vorhaben sonst realisieren?
Hier mein versuch:
VB.NET-Quellcode
- Dim ArtikelArray As New ArrayList
- Dim Artikelanzahl As Integer
- Dim ArtikelZeile As Excel.Range
- Dim Artikelrange As Excel.Range
- Dim DiArtikel As New Dictionary(Of String, String)
- Artikelanzahl = exApp.Range("A22", exApp.Range("A1").End(XlDirection.xlDown)).Count
- Artikelrange = exApp.Range("A22", "A" & Artikelanzahl + 21)
- For Each ArtZeile As Excel.Range In Artikelrange
- ArtikelZeile = exApp.Range("A" & ArtZeile.Row, "QZ" & ArtZeile.Row)
- For Each Art As Excel.Range In ArtikelZeile
- DiArtikel.Add(CStr(exApp.Range(exApp.Cells(4, Art.Column), exApp.Cells(4, Art.Column)).Text), CStr(Art.Text))
- Next
- ArtikelArray.Add(DiArtikel)
- Next
Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „vbBeginner“ ()