Bestellmenge berechnen

[neopa]

Hallo Thomas,

Nachfolgend geht es nicht Deine letzte VBA-Frage (aus VBA halte ich mich grundsätzlich heraus) sondern um Deine noch offene frühere Fragestellung zur Ermittlung der Gesamtprofillängen für 3 verschiedene Profillängen und zwar für den Fall, das Deine Vorgabewerte für Länge und Breite auch größer als die max. Profillänge sein können.

Für eine gleichzeitige Optimierung des Einsatzes der Profile hab ich eine "Zuord_Tab" aufgestellt (die jederzeit auch ergänzt werden kann) und dafür die Auswertungsformel entsprechend angepasst. Evtl. notwendige Toleranzlängen sind aber nicht berücksichtigt.

Die Formel in Zuord_Tab!B2 ist nach rechts zu kopieren und die in Zuord_Tab!A3 ziehend nach unten ebenso die Auswertungsformel in H3.

Arbeitsblatt mit dem Namen 'Zuord_Tab'
	A	B	C	D
1		Stück je Profillänge
2	Länge/Breite	2,6 m	3,1 m	4,0 m
3	1,30	1/2
4	1,55		1/2
5	2,00			1/2
6	2,60	1
7	2,85	1/2	1/2
8	3,10		1
9	3,55		1/2	1/2
10	4,00			1
11	4,40	1/2	1
12	4,85	1/2	1/2	1/2
13	5,20	2
14	5,70	1	1
15	6,20		2
16	6,60	1		1
17	7,10		1	1
18	7,80	3
19	8,00			2
20	8,30	2	1
21	8,80	1	2
22	9,30		3
23	9,70	1	1	1
24	10,20		2	1
25	10,60	1		2
26	10,90	3	1
27	11,10		1	2
28	11,40	2	2
29	11,80	3		1
30	12,00			3
31	12,40		4
32	12,80	1	2	1

Zelle	Formel
B2	=RECHTS(WECHSELN(INDEX(Unterdecke!$A30:$A32;SPALTE(A1));"mm";"");4)/1000
A3	=B3*B$2+C3*C$2+D3*D$2

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

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

Arbeitsblatt mit dem Namen 'Unterdecke'
	A	B	C	D	E	F	G	H
18	MATERIALAUSZUG / Deckenfläche				33,75
19	Länge:	7,50	Breite:	4,50
20	Plattengröße				1
21	Abhanghöhe				500
22	Dämmung				0
23	Feuchtraum				nein
24	Artikel					Bestell-Nr.	EINHEIT	MENGE
30	CD-Deckenprofil 27/60/27    0,6mm 2600mm						lfm	89,7
31	CD-Deckenprofil 27/60/27    0,6mm 3100mm						lfm	14,0
32	CD-Deckenprofil 27/60/27    0,6mm 4000mm						lfm	18,0
33

Zelle	Formel
H30	=WENN(A30="";"";((AUFRUNDEN((B$19-0,5)/0,8;0)+1)*INDEX(Zuord_Tab!B:D;AGGREGAT(15;6;ZEILE(Zuord_Tab!A$3:A$49)/(Zuord_Tab!A$3:A$49>=B$19);1);ZEILE(A1))+(AUFRUNDEN((D$19-0,5)/0,5;0)+1)*INDEX(Zuord_Tab!B:D;AGGREGAT(15;6;ZEILE(Zuord_Tab!A$3:A$49)/(Zuord_Tab!A$3:A$49>=D$19);1);ZEILE(A1)))*INDEX(Zuord_Tab!B$2:D$2;ZEILE(A1)))

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

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

[neopa]

Hallo Thomas,

hab Deine Datei nun gerade doch noch erhalten. Beim einkopieren meiner angegebenen Formel hast Du aus Versehen vor dem Gleichheitszeichen noch ein Leerzeichen mit eingefügt. Das musst Du lediglich löschen und danach die Formel nach unten kopieren. Dann berechnet diese auch Werte.

[wavemaster]

Hallo neopa,
hat alles geklappt.

Prima Danke

:18: :18: :18: :18: :18: 


Jetzt habe Ich nur das Problemchen mit dem Thread 60 und meiner VBA fürs Drucken.

na vielleicht hat noch jemand eine zündende Idee :19: :19: :19: :19: :19: