ich habe versucht über die vorhandenen Beiträge zu doppelten Datensätzen eine Lösung für mein Problem zu bekommen, habe aber nichts passendes gefunden.
Folgendes möchte ich bewerkstelligen:
Ich habe ein Tabellenblatt mit Datensätzen.
Die releaventen Daten befinden sich in den Reihen A bis N.
In Zeile O ist noch ein Datum vermerkt, wann dieser Datensatz eingefügt wurde.
Nun kann es vorkommen, dass Datensätze doppelt vorhanden sind, lediglich das Datum in Zeile O ist anders.
Ich möchte nun, dass Excel diese trotzdem als doppelt erkennt und dann jeweils den Datensatz (die Zeile) löscht, die älteren Datums ist.
Hinsichtlich der einfachen Löschung doppelter Datensätze ohne Berücksichtigung des Datums in Reihe O bin ich so vorgegeangen (das klappt einwandfrei):
Sub Doppelteraus()
Dim z1 As Long
Dim z2 As Long
'Dim PZ4 in Declarationen
z1 = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
Selection.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A" & z1 + 1), Unique:=True
z2 = ActiveSheet.UsedRange.Rows.Count 'wird für die Berechnung gelöschter doppelter Datensätze benötigt
Range("A1:O" & z1).Delete
PZ4 = z2 - z1 'wird für die Berechnung gelöschter doppelter Datensätze benötigt
PZ4 = z1 - PZ4 'wird für die Berechnung gelöschter doppelter Datensätze benötigt
End Sub
Hat jemand eine Idee, wie ich dieses Makro für meinen Plan umstricken kann.
Gruß
Frank