Berechnung von Stückzahlen eines Artikelbaums

Hallo zusammen,
ich hoffe die Überschrift trifft es einigermaßen, erkläre es aber einfach hier ausführlich. Ich versuche verzweifelt eine Anzahl von Produkten herauszufinden, die in gewissen Untergruppen vorkommen. Ich hoffe ihr könnt mir weiterhelfen
Folgende Ausgangslage beispielhaft dargestellt.
Ich habe z.B. vier Spalten
Spalte A = Level
Spalte B = Stückzahl
Spalte C = Beschreibung
Spalte D = Gesamtstückzahl
Annahme ich will ein Haus bauen
Level Stückzahl Beschreibung Gesamtstückzahl
1 1 Haus
2 1 Erdgeschoss
3 1 Türen
3 3 Wohnbereiche
4 3 Fenster
4 1 Türen
3 1 Schlafbereiche
4 2 Fenster
4 1 Türen
2 1 Obergeschoß
3 2 Schlafbereiche
4 2 Fenster
4 1 Türen
3 2 Badezimmer
4 2 Fenster
4 1 Türen
Nun möchte ich immer in der Spalte D des letzten Knotenpunktes die benötigte Gesamtanzahl berechnen.
Also als Beispiel
- die Gesamtzahl der Türen im Schlafbereich im Erdgeschoß = 1Tür x 1Schlafbereich x 1Erdgeschoß = 1 in Spalte D
- die Gesamtzahl der Fenster in den Badezimmern im Obergeschoss = 2Fenster x 2Badezimmer x 1Obergeschoss = 4 in Spalte D
Es gibt aber nicht immer die gleiche Anzahl an Knotenpunkten, sondern der unterste Punkt kann auch mal im Level 3 aufhören --> Als Beispiel die Eingangstür des EG
Ich hoffe ich habe es soweit verständlich erklärt.
Hier mal mein Ansatz, wo ich aber dann nicht mehr weiterkomme


'letzte Zeile in Spalte A suchen:
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' Zeilen nacheinander überprüfen, ob es sich um einen untersten Knotenpunkt handelt
For z = 1 To Zeilenanzahl
If Cells(z, 1) >= Cells(z + 1, 1) Then
' Wenn ich einen untersten Knotenpunkt habe, dann die Einzelstückzahl aus Spalte B in   _
_
Variable speichern
a = Cells(z, 2).Value
' herausfinden in welchem Knoten dieser speziellen Artikel endet
Level = Cells(z, 1).Value
' nachdem ich ja die Stückzahl des untersten Levels schon habe will ich jetzt die Stü _
ckzahl des direkt darüber liegenden Knotens ermitteln aber hier komme ich nicht weiter...
Level_1 = Cells(z, 1).End(xlUp).Row

Ich will ihm sagen, er soll ab der Zeile in der er gerade ist nach oben das nächst kleinere Level suchen und mir hier die Reihe nennen, dass ich dann wieder die Stückzahl aus der gefundenen Reihe als Variable b zu speichern, dass ich dann am Ende in Spalte D den Wert a * b * c * ... (je nach Anzahl der Level) ausgeben kann.
Wichtig ist auch, dass er mir eben nur den ersten kleineren Wert berücksichtigt, und dann mit dem nächsten, also Level - 2 weitermacht...
Vielen Dank euch schon mal für eure Unterstützung!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen, erstmal vielen Dank für eure Unterstützung.
Leider funktioniert die Formel nicht wie ich sie brauche.
Ich habe jetzt mal eine Datei erstellt in der das hoffentlich klarer ersichtlich ist was ich als Ergebnis brauche
https://www.herber.de/bbs/user/132975.xlsx
Jedes x in Spalte "M" zeigt an, dass diese Zeile ein unterster Knoten ist. So soll in diesen Zeilen in Spalte "N" die benötigte Anzahl Kaufteil/Baugruppe stehen / diese errechnet sich, wenn man den Baum nach oben geht.
Also Beispiel für Zeile 21 / Leistung in Level 8 brauche ich 1x, habe aber in Level 7 in Summe 6 Baugruppen / In Level 5 dann wieder 1 Baugruppe und so weiter.
Das Produkt daraus ergibt dann die Anzahl, wie oft ich diese Leistung brauche. Jetzt Filter ich nach Leistung und habe nur noch Zeilen mit "Leistung" in denen in Spalte "N" die benötigte Anzahl steht.
Hoffe das ist jetzt klarer geworden.
Komme ich irgendwie von meiner Formatierung auf eure mit 1.1.2.x ich habe hier leider ca. 60.000 Zeilen

Option Explicit Dim r As Long Sub start() Dim mul As Long, levl As Long r = 2: [N2:N55].ClearContents mul = Cells(r, "O") levl = Cells(r, 1) If Cells(r + 1, 1) levl + 1 Then MsgBox "Hier ist was faul", vbOKOnly: End schleife mul End Sub Sub schleife(ByVal mul As Long) Dim levl As Long r = r + 1: levl = Cells(r, 1) While Cells(r + 1, 1) > levl schleife mul * Cells(r, "O") 'ein Unterknoten Wend While Cells(r - 1, 1)

Sub Gesamtanzahl() Dim mul As Long, levl As Long r = 2: [P2:P10000].ClearContents mul = Cells(r, "Q") levl = Cells(r, 1) If Cells(r + 1, 1) levl + 1 Then MsgBox "Hier ist was faul", vbOKOnly: End schleife mul End Sub

Sub Gesamtanzahl() Dim mul As Long, levl As Long, Zeilenanzahl As Long 'letzte Zeile in Spalte A suchen: Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row r = 2: [P2:P&Zeilenanzahl].ClearContents mul = Cells(r, "Q") levl = Cells(r, 1) If Cells(r + 1, 1) levl + 1 Then MsgBox "Hier ist was faul", vbOKOnly: End schleife mul End Sub

Option Explicit Dim r As Long Sub start() Dim mul As Long, levl As Long, Zeilenzahl As Long Zeilenzahl = Cells(Rows.Count, 1).End(xlUp).Row r = 2: Range(Cells(2, 15), Cells(Zeilenzahl, "P")).ClearContents mul = Cells(r, "Q") levl = Cells(r, 1) If Cells(r + 1, 1) levl + 1 Then MsgBox "Hier ist was faul", vbOKOnly: End schleife mul MsgBox CStr(r) + " von" + Str(Zeilenzahl) + " Zeilen" End Sub Sub schleife(ByVal mul As Long) Dim levl As Long r = r + 1: levl = Cells(r, 1) If r = 416 Then Stop While Cells(r + 1, 1) > levl schleife mul * Cells(r, "Q") 'ein Unterknoten Wend While Cells(r - 1, 1)

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle2'
	D	E	F
1	Nr	Stck	Beschreibung
2	1.	1	Haus
3	1.1	1	EG
4	1.1.1	3	Wohnbereiche
5	1.1.1.1	1	Tür
6	1.1.1.2	3	Fenster
7	1.1.2	1	Schlafbereich
8	...
9	1.2	4	OG

Berechnung von Stückzahlen eines Artikelbaums

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread