|
Hallo zusammen,
ich habe folgende Herausforderung, aber komme leider nicht weiter. In meiner Datei habe ich alte Datensätze, die mit neuen abgeglichen werden sollen. In diesem Fall wäre ab Spalte C6 die Sendungsnummer doppelt und ab Spalte A6 mit Kommentaren versehen.
Meine Herausforderung ist:
- kopieren und einfügen des Kommentars in den neuen doppelten Datensatz aus der Spalte Bemerkungen
- löschen des "alten" doppelten Datensatzes (komplette Zeile löschen)
Habt ihr eine Idee? Ich hatte gedacht ich lasse nach Sendungsnummer sortieren, Bemerkung kopieren und den obersten Datensatz löschen. Nur leider fehlt es mir hier noch an der Umsetzungsfähigkeit.
| Bemerkungen |
Abteilungen |
Sendungsnr. |
Info 1 |
Info 2 |
Info 3 |
Info 4 |
| soll gelöscht werden |
|
123456 |
Alt |
Alt |
Alt |
Alt |
| soll stehen bleiben |
|
123456 |
Neu |
Neu |
Neu |
Neu |
Diesen Code benutze ich aktuell um die Dubletten zu löschen, hier wird aber immer nur der neu eingefügte Eintrag gelöscht.
Sub Doppelte_löschen_RP()
'
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 3).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(3), Cells(iRow, 3)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Vielleicht habrt ihr eine Idee, wie man das Ganze lösen kann :)
Vorab schon einmal vielen lieben Dank.
Viele Grüße
ChrisFeyer
|