Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bestellmenge berechnen
#61
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'
ABCD
1Stück je Profillänge
2Länge/Breite2,6 m3,1 m4,0 m
31,301/2
41,551/2
52,001/2
62,601
72,851/21/2
83,101
93,551/21/2
104,001
114,401/21
124,851/21/21/2
135,202
145,7011
156,202
166,6011
177,1011
187,803
198,002
208,3021
218,8012
229,303
239,70111
2410,2021
2510,6012
2610,9031
2711,1012
2811,4022
2911,8031
3012,003
3112,404
3212,80121

ZelleFormel
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'
ABCDEFGH
18MATERIALAUSZUG / Deckenfläche33,75
19Länge:7,50Breite:4,50
20Plattengröße1
21Abhanghöhe500
22Dämmung0
23Feuchtraumnein
24ArtikelBestell-Nr.EINHEITMENGE
30CD-Deckenprofil 27/60/27    0,6mm 2600mmlfm89,7
31CD-Deckenprofil 27/60/27    0,6mm 3100mmlfm14,0
32CD-Deckenprofil 27/60/27    0,6mm 4000mmlfm18,0
33

ZelleFormel
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
Gruß Werner
.. , - ...
[-] Folgende(r) 1 Nutzer sagt Danke an neopa für diesen Beitrag:
  • wavemaster
Antworten Top
#62
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.
Gruß Werner
.. , - ...
[-] Folgende(r) 1 Nutzer sagt Danke an neopa für diesen Beitrag:
  • wavemaster
Antworten Top
#63
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:
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste