Ebene multiplizieren

[Daniel L.]

Hallo Zusammen,

ich brauche eure Hilfe.
ich habe eine größere Tabelle mit mehreren Tausend Einträgen.
Hier sind Teile enthalten, welche wieder herum aus Unterteile besteht.
Nun muss ich die Gesamtanzahl herausfinden von den Unterteilen.
Hier muss dann jede Ebene mit der direkten Ebene darüber multipliziert werden.
Also Ebene 3 multipliziert mit Ebene 2 und dann mit Ebene 1.
Die Tabelle kann bis zu 15 Ebenen haben.

Ich habe hierzu ein vereinfachtes Beispiel angehängt. Hier geht es darum die Gesamtanzahl auszurechnen.

Ich würde mich sehr freuen wenn ihr mir weiterhelfen könnt.

Vielen Dank schon im Voraus für eure Antworten

Gruß Daniel

[snb]

Code:

Sub M_snb()
  sn = Range("A4:C16")
 
  For j = 2 To UBound(sn)
    If Len(sn(j, 1)) > Len(sn(j - 1, 1)) Then y = sn(j - 1, 3)
    If Len(sn(j, 1)) > 1 Then sn(j, 3) = sn(j, 3) * y
  Next
 
  Range("D4:D16") = Application.Index(sn, 0, 3)
End Sub

[Fred11]

Hallo Daniel,

basierend auf deiner Beispieldatei hier ein Vorschlag für eine Formellösung (hier mal für 5 Ebenen):

Arbeitsblatt mit dem Namen 'Tabelle1'
	B	C	D	E	F
3	Ebene	Bauteil	Anzahl	Gesamtanzahl	Gesamtanzahl
4	1	Schweißteil	5	5	5
5	2	Arm	1	5	5
6	2	Unterarm	1	5	5
7	2	Flansch	2	10	10
8	3	Welle	1	10	10
9	1	Antrieb	3	3	3
10	2	Stirnrad	2	6	6
11	2	Stirnrad	4	12	12
12	2	Welle	6	18	18
13	1	Antrieb2	3	3	3
14	2	Stirnrad2	2	6	6
15	2	Stirnrad2	2	6	6
16	2	Welle2	1	3	3

Zelle	Formel
F4	=D4* WENNFEHLER(VERWEIS(2;1/($B$4:B4=B4-1);$D$4:D4);1)* WENNFEHLER(VERWEIS(2;1/($B$4:B4=B4-2);$D$4:D4);1)* WENNFEHLER(VERWEIS(2;1/($B$4:B4=B4-3);$D$4:D4);1)* WENNFEHLER(VERWEIS(2;1/($B$4:B4=B4-4);$D$4:D4);1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

(Formel nach unten ziehen)

Bei mehr Ebenen muss die Formel entsprechend erweitert werden, was bei einer größeren Anzahl von Ebenen schnell unüberischtlich / unhandlich wird.

Da käme dann wohl eher eine Lösung mit Hilfsspalten in Frage (für jede Ebene wird eine Hilfsspalte benötigt)
Die Hilfsspalten kannst du ja ausblenden.

Siehe angehängte Beispieldatei

Gruß
Fred

[Ego]

Hallo Daniel,

oder ohne Hilfsspalte:

=WENN(LÄNGE(A4)=1;C4;C4*INDEX(D:D;AGGREGAT(14;6;ZEILE($A$4:A4)/(LÄNGE($A$4:A4)=LÄNGE(A4)-1);1)))