Excel Stücklisten vergleichen

Hallo zusammen,
erstaml vielen Dank für dieses tolle Forum, mit der Hilfe von älteren Beiträgen konnte ich bereits ein Excelmappe erstellen, die es ermöglicht zwei Stücklisten /BOM miteinander zu vergleichen. Der Inhalt der Stücklisten wird in die Vergleichsmappe importiert, auf der linken Seite die alte Verseion (Stückliste_1) und auf der rechten Seite die neue Version (Stückliste_2). Der Vergleich löscht Artikel die keine Änderung in Anzahl und Identnummer aufweisen aus der Tabelle und als Ergebnis bleiben die Artikel stehen, die entweder in einer der Beiden Stücklisten nicht vorhanden sind oder sich die Menge unterscheidet. Allerdings gibt es noch ein Problem, für das ich bisher keine Lösung gefunden habe:
Die Stücklisten werden automatisch aus einem CAE Programm erstellt. Wenn es CAE Projekte mit mehreren Schaltschränken gibt, werden in die Stücklisten auch die Bauteile mehrerer Schaltschränke in eine Liste ausgegeben. In den beiden Beispielstücklisten sieht man das an der Kennzeichnung +C1 und alles unter der Zeile mit +C2 stammt aus dem zweiten Schaltschrank. Das Problem ist jetzt folgendes:
Wenn nur ein Schaltschrank vorhanden ist (also nur +C1), funktioniert der Vergleich. Sobald aber ein zweiter Schrank +C2 enthalten ist, erkennt das vba Programm Bauteile die sowohl in +C1 vorhanden sind, also auch in +C2 vorhanden sind aber mit unterschiedlichen Stückzahlen, als Differenz. Das Programm dürfte also immer nur bis zur Zeile mit +C2 suchen und dann ab +C2 die Auswertung erneut starten usw... Dabei müsste sichergestellt werden, das der Bereich zwischen +C1 und +C2 aus Stückliste_1 auch nur mit dem Bereich +C1 bis +C2 aus der Stückliste_2 verglichen wird und nicht mit +C2 und +C3 etc..
Ich hoffe die Beschreibung war einigermaßen verständlich :-)
Vergleichsmappe: https://www.herber.de/bbs/user/145567.xlsm
Stückliste 1: https://www.herber.de/bbs/user/145563.xlsx
Stückliste 2: https://www.herber.de/bbs/user/145568.xlsx
Screenhsot von der Stücklistenvergleichsmappe:

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Stücklisten_vergleichen() ' Werte Neu mit Alt vergleichen Dim wks As Worksheet, varPart As Variant Dim ZeileA As Long, ZeileH As Long Dim lazA As Long, lazH As Long Dim azC2 As Long, hzC2 As Long Set wks = ThisWorkbook.Worksheets("Auswertung2") With wks lazA = .Cells(.Rows.Count, 1).End(xlUp) lazH = .Cells(.Rows.Count, 8).End(xlUp) 'Farbe in Spalte B + J entfernen .Range("B5:B" & lazA).Interior.ColorIndex = xlColorIndexNone .Range("I5:I" & lazH).Interior.ColorIndex = xlColorIndexNone Application.ScreenUpdating = False '+C2 in Spalte B + I suchen (über Exit For) For azC2 = 1 To lazA If .Cells(azC2, 2) = "+C2" Then Exit For Next azC2 For hzC2 = 1 To lazA If .Cells(hzC2, 9) = "+C2" Then Exit For Next hzC2 'Bereich +C2 zuerst auswerten ''Stückliste 2: "+C2" auswerten und Zeilen löschen For ZeileH = lazH To hzC2 + 1 Step -1 For ZeileA = lazA To azC2 + 1 Step -1 If .Cells(ZeileH, 10) = .Cells(ZeileA, 3) Then If .Cells(ZeileH, 9) = .Cells(ZeileA, 2) Then .Cells(ZeileH, 8).Resize(1, 6).Delete shift:=xlShiftUp .Cells(ZeileA, 1).Resize(1, 6).Delete shift:=xlShiftUp Else .Cells(ZeileH, 10).Interior.ColorIndex = 7 ' Farbe Magenta End If Exit For End If Next ZeileA 'ID-Nr. nicht gefunden Magenta markieren If ZeileA

Ich habe den Code nochmal genau angeschaut, und zumindest in der Theorie eine Idee wie es für beliebig viele Schränke also von +C1 bis +Cxx funktionieren könnte.
Zuerst müsste die letzte Zeile bzw. Position ermittelt werden, was über ZeilenzA = .Cells(.Rows.Count, 1).End(xlUp) bereits enthalten ist. Anschließend müsste die Auswertung, die für den Vergleich von +C2 gedacht war in eine Schleife gepackt werden, die Rückwärst also von der letzten Zeile aus bis zur nächsten leeren Zelle in Spalte A bzw. H widerholt wird. Sobald die leere Zelle ermittelt wurde müsste die Auswertung erneut gestartet werden, dann allerdings von der aktuellen Zeile bis zur dann nächsten leeren Zelle in Spalte A bzw. H. Dies müsste so lange wiederholt werden, bis Zeile 5 erreicht wird. Ich habe schon viel Recherchiert, aber leider keine Möglichkeit gefunden das so umzusetzen. Vielleicht hat noch jemand eine Idee wie man sowas lösen könnte. Vielen Dank schon mal :-)

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread