ich möchte aus einer Tabelle Duplikate entfernen lassen, da ich die Daten immer als Ganzes erhalte und jedes Mal in die Tabelle kopiere.
Bisher funktioniert der Code so:
Sub Duplikatelöschen()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 8).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(8), Cells(iRow, 8)) > 1 Then
If Cells(iRow, 11) > Cells(iRowL, 11) Then
Rows(iRow).Delete
End If
End If
Next iRow
End Sub
Ich möchte jedoch, dass Einträge die in der Spalte 16,17,18 hinterlegt sind, kopiert werden in die Zeile des Originals.Meine bisherigen Versuche mit der Range-Methode waren jedoch erfolglos.
Habt ihr Ideen oder Tipps?
VG Bettina