Office: Doppelte Werte in Spalten suchen, dann Rest der Zeile zusammenfügen

Hallo,

versuche die Zeile mit der Fehlermeldung

Set rng = Tabelle1.Columns("F").Find(Tabelle2.Cells(i, "F"), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)

zu ändern, entweder das Leerzeichen nach _ zu enfernen, oder alles in eine Zeile schreiben:

Set rng = Tabelle1.Columns("F").Find(Tabelle2.Cells(i, "F"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)

mfg

PS: Die Adressierung mit CodeNames könnte bei Änderungen Probleme verursachen.

 

Ich möchte mich herzlich bedanken, der Code den ich im letzten Beitrag geschrieben hat funktioniert prima mit der letzten Ergänzung.

Was jetzt noch fehlt, dürfte eine Kleinigkeit sein:
Der komplette Ablauf müsste für jede Baugruppe einmal einzeln ausgeführt werden.

Ansonsten passiert folgendes:
Wenn beispielsweise eine Schraube in der Baugruppe 30 UND dann nochmal in der Baugruppe 530 vorkommt, hat diese dennoch die selbe Sachnummer. Also wird einer dieser beiden Einträge gelöscht. Damit fehlt bei der entsprechenden Baugruppe die Information, dass die Schraube dort hingehört.

Ist dies mit einer einfachen Schachtelung des Prozesses in einer Schleife getan?

 

Hallo,

der Code prüft die Spalten A (Baugruppe), I (Index), T (Struktur) und U (Text) auf Eindeutigkeit. Wenn es nur in einer der Splaten ungleich ist, wird die Maschinenbelegung nicht zusammengefaßt.

Einfach gesagt, mit den mir vorliegenden Daten kann ich das Problem nicht nachvollziehen.

Wenn möglich, poste einen erweiterten Datensatz, der den Fehler zeigt.

mfg

 

Hi,

also heißt das, dass wenn eine M6 Schraube z.B. in einer Baugruppe 50 vorkommt und in der Baugruppe 60, und ansonsten alles gleich ist, die beiden Zeilen bestehen bleiben?

Dann ist der Code so wie er jetzt ist perfekt!