Duplikate in Datei
09.12.2016 09:21:31
Larissa
ich habe eine Liste mit Datensätzen die in einer Spalte gleich sind (B). Jetzt sollen die Werte (A-E) in eine neue Mappe kopiert werden (das sind die ersten 693 Einträge) und passend dazu (Spalte B) die Spalten F-K kopiert werden ( ab den Einträgen 694 bis zum Ende).
lz = ziel.Cells(Rows.Count, 1).End(xlUp).Row
For x = 693 To 3 Step -1
For y = 2317 To 694 Step -1
If quelle.Range("B" & x).Value = quelle.Range("B" & y).Value Then
quelle.Range("A" & y).Copy ziel.Range("A" & y)
quelle.Range("C" & y).Copy ziel.Range("C" & y)
quelle.Range("D" & y).Copy ziel.Range("D" & y)
quelle.Range("E" & y).Copy ziel.Range("E" & y)
quelle.Range("F" & x).Copy ziel.Range("F" & x)
quelle.Range("G" & x).Copy ziel.Range("G" & x)
quelle.Range("H" & x).Copy ziel.Range("H" & x)
quelle.Range("I" & x).Copy ziel.Range("I" & x)
quelle.Range("J" & x).Copy ziel.Range("J" & x)
quelle.Range("K" & x).Copy ziel.Range("K" & x)
End If
Next
Next
Anzeige