Mehrdimensionales Array füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…dieser Aufgabe gerecht wdn kann, Albert,
denn, wenn schon ein 2dArray stets rechteckig sein muss, müsste ein 3dArray stets Quaderform haben, d.h., die Anzahlen der ANrn dürfen zwar von denen der ArtNrn-insgesamt und auch der der Mengen-insgesamt verschieden sein, aber eben insgesamt, nicht im Detail. Also müssten alle ANrn die gleiche Anzahl von ArtNrn haben und alle ArtNrn die gleiche Anzahl von Mengen. Durch die Summation letzterer zur Gesamtmenge pro ArtNr würde hier zwar eine Übereinstimmung hergestellt, aber eben nicht untereinander, sondern mit der Anzahl der jeweiligen ArtNrn pro ANr. Die dürfte aber wohl kaum für jede ANr gleich sein. Deshalb käme wohl eher ein Vektor der ANrn infrage, dessen Elemente 1. aus der ANr und 2. aus einer Matrix aller jeweils zugehörigen ArtNrn — mit den ArtNrn in einer Zeile/Spalte und den zugehörigen Mengensummen in der anderen — bestehen. Das wäre dann nur über einen Variant mit einem Array erreichbar, wobei seine Elemente ebenfalls Variant sein müssen. Recherchiere also mal danach bzw alternativ nach Arrays in Arrays oder auch nach Dictionary-Objekt, denn das dürfte sich auch dafür eignen, ggf auch eine Collection.
Gruß Luc :-?
Besser informiert mit …

Hallo Albert,
was willst du denn erreichen?
ich vermute mal - Anzahl pro "KW, Auftragsnr und Artikelnr."
Dazu brauchst du aber keine 3 Dimensionen. Das ganze stellt sich ja wie eine Tabelle dar, sprich 2-dimensional.
Das Array könnte dann zB so aussehen (wobei "Zeile" und "Spalte" hier nur zum Verständnis dienen sollen):

Sub FillArray()
Dim vntData()
Dim k As Long
ReDim vntData(3, k)
'vntData(0, k) = Spalte-1, Zeile-k: KW
'vntData(1, k) = Spalte-2, Zeile-k: Auftragsnr
'vntData(2, k) = Spalte-3, Zeile-k: Artikelnr
'vntData(3, k) = Spalte-4, Zeile-k: Anzahl
'... dein Code ...
End Sub

Das ist aber recht aufwendig, da man bei jedem Eintrag prüfen muss, ob diese Kombination schon existiert, sonst muss das Array für k = k + 1 mit Redim Preserve vntData(3, k) erweitert werden, etc.
Einfacher geht es mit einem Dictionary (Schlüssel-Werte-Paare). Hier kannst du direkt auf einen Schlüssel zugreifen. Wenn dieser nicht existiert wird er automatisch angelegt.
Als Schlüssel würde ich vorschlagen, einfach die Strings mit entspr. Delimiter aus KW, Auftragsnr und Artikelnr zusammen zu setzen (das Dictionary erlaubt keine Arrays als Schlüssel, ist ein großes Manko bei VBS).
Gruß
Christian

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrdimensionales Array füllen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread