Liebe EXCEL-Freunde und VBA-Könner,
die in der beigefügten Datei im Arbeitsblatt „1“ beinhalteten, im Original vom Lieferanten so auch bereitgestellten Produktinformationen sollen so aufbereitet werden, dass sie wie im Arbeitsblatt „Output“ beispielhaft dargestellt in dieser Form zur weiteren Ver-/Bearbeitung verwendet werden können. Die farbliche Abgrenzung dient hierbei lediglich der Übersichtlichkeit.
https://www.herber.de/bbs/user/77227.xls
Dies konnte ich bislang mit einer kombinierten Formel-/VBA-Lösung realisieren, die im Arbeitsblatt „1“ in einer zusätzlich eingefügten Spalte A die Zuordnung der als linker Teil der als „Überschrift“ bereitgestellten Palettennummer ( z.B. „2011090320003 185W“) zu den jeweiligen Seriennummern vorgenommen und dann mit einem aufgezeichneten Makro die ergänzten Daten in das Arbeitsblatt „Output“ übernommen/kopiert, aufsteigend nach Palettennummern sortiert und die nicht benötigten leeren Zeilen sowie die mit Inhalten wie „2011090320007 185W„ und „SerialNo
Date Pmax Voc Isc Vpm Ipm“ gelöscht hat.
Dies hat auch gut funktioniert, da die mit dem Arbeitsblatt „1“ gelieferten Daten einheitlich strukturiert waren, d.h. die Produktanzahl (= SerialNo) je Palette (= z.B. „2011090320007 185W“) bislang immer einheitlich 25, 22 oder 21 usw. war.
Dies hat sich jedoch nunmehr geändert, da jetzt Paletten mit unterschiedlicher Anzahl von Produkten geliefert werden, in der Beispieldatei sind dies 22 und 26 Module je Palette.
Meine Lösung funktioniert nun nicht mehr und ich bekomme das Problem weder hinsichtlich des Formel- noch des VBA-Anteils in den Griff.
Ich vermute, dass der VBA-Lösungsansatz über eine Schleife realisierbar sein müsste, die vielleicht vom Ende her beginnend den variabel benötigten Bereich (zwischen den Leerzeilen) ermittelt und dann über „offset(-1,1)“ die Palettennummer als „value“ einträgt.
Zur Umsetzung bin ich mit meinen sehr beschränkten VBA-Kenntnissen leider nicht in der Lage, d.h. ich weiß nicht, welche Werte ich den Variablen zuweisen muss usw.
Könnt ihr mir bitte dabei helfen?
Mit freundlichen Grüssen
Bibo