Konsolidierung von Daten

Hallo Liebes Forum,
ich würde gerne Teilenummern aus verschiedenen Tabellen in einer zentralen Tabelle zusammenfassen und dies ohne leeren Zeilen. Die verschiedenen Tabellen befinden sich im Reiter Packaging EW, wobei die Tabelle, wo die Teilenummern zusammen zusammengefasst werden sich im Reiter Input_MW Anfrage befinden. Meine Frage lautet in diesem Zusammenhang, wie ich diesen Übertrag realisieren kann. Am Ende sollen die Teilenummern ohne Leerzeichen in einer Tabelle zusammengefasst werden. Ich habe euch eine Excel Datei als Beispiel angehängt, um meine Problemstellung ein bisschen besser zu verdeutlichen.
https://www.herber.de/bbs/user/137034.xlsx
Da ich mich nicht so gut mit Makros auskenne, wäre es mega lieb, wenn Ihr mir eine Lösung als Excel-Formel geben könntet. Falls das nicht möglich ist, bin ich selbstverständlich auch für eine Makro-Lösung sehr dankbar.
Ich bedanke mich Voraus für eure Hilfe!
Viele Grüße
Dursun

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Helmut,
... es sind lediglich zwei relativ einfache Formeln, die möglicherweise nur durch die Länge und die mehrfache Verwendung des langen Tabellenblattnamen kompliziert erscheinen.
Allerdings habe ich eben festgestellt, dass ich meine Formel für K4 noch nicht korrekt dargestellt habe. Ich hatte O4 vergessen zu ersetzen.
Komplett lautet die Formel in K4 so:
=WENN(ZEILE()-2&gtMAX('Packaging EW'!$29:$29);"";INDEX('Packaging EW'!$A:$ZZ;ZEILE()+1-INDEX('Packaging EW'!$29:$29;VERGLEICH(ZEILE()-3;'Packaging EW'!$29:$29));VERGLEICH(ZEILE()-3;'Packaging EW'!$29:$29)+(K$3="Preis")+(K$3="Volumen")*2+10-(KKLEINSTE('Packaging EW'!$29:$29;2)&gtZEILE()-3)*6))
Diese Formel kann so auch nach rechts kopiert werden und ermittelt so auch gleich Volumen und Preis mit.
Ich hatte bewusst nach einer solch alternativen Formellösung zu PQ gesucht, weil auf eine PQ-Lösung bereits Günther verwiesen hatte.
Außerdem sollte die Formellösung in der Lage sein, die angestrebte Auswertung ohne jegliche Formeländerung auch dann vorzunehmen, wenn später eine 4., 5. ... Liste dazukommen sollten. Wenn die Formeln entsprechend weit kopiert sind, ist dies auch der Fall.
Deine PQ-Lösung setzt übrigens im Gegensatz zu Günthers Lösung voraus, dass die Listen nicht als bereits formatierte Tabellen vorliegen, was im Beispiel zwar so ist, aber ja nicht unbedingt der Fall sein muss. Dann wird die entsprechende Definition einer PQ-Lösung, für denjenigen der diese aufstellt, auch schon etwas aufwendiger, wie Du an Günthers Lösung erkennen kannst.
Für den Nutzer ist ein fertiger PQ-Lösungsvorschlag natürlich einfacher und sicherer zu handhaben, aber mir persönlich bereitet die Aufstellung einer Formellösung nun mal mehr Freude und diese "Freiheit" gestatte ich mir. Dursun kann ja trotzdem wählen.
Gruß Werner
.. , - ...

dim Zelle as range For each Zelle In Sheets("Packung EW").Rows(3).Specialcells(xlcelltypeconstants, 2) If Zelle.value = "Teilenummer" then Range(Zelle.offset(1, 0), Zelle.End(xldown)).copy sheets("Input_MW Anfrage").cells(rows.count, 11).End(xlup).offset(1, 0).pastespecial _ xlpasteall End if Next

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread