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 |
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.
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: