aus einer ca. 18000 Datensätze umfassenden Datei sollen ALLE die gelöscht werden, die dort NUR einmal vorkommen. Kriterium soll der Namen und Geb.Datum sein. Vielen Dank für Eure Hilfe.
normalerweise werden die Daten gelöscht die mehrfach vorhanden sind !
Gruss Rainer
deine Daten stehen ab Spalte A, beginnend bei A1, bis Spalte Z, endend bei Zeile 18000.
Der name steht in Spalte A, das Geburtsdatum in Spalte C
Dann geh in die Spalte hinter dem letzten Eintrag - z.B. AA und schreibe in AA1 folgende Formel:
=A1&C1
und kopier diese runter bis Zeile 18000.
Daneben in AB1 schreibst du dann:
=WENN(ZÄHLENWENN($AA$1:$AA$18000;AA1)=1;1;"")
und kopierst auch diese Formel runter bis Zeile 18000.
Anschließend aktivierst du den Autofilter und filterst nach Spalte AB "nur einsen".
Du bekommst dann alle angezeigt, die nur einmal vertreten sind.
Diese Zeilen dann alle markieren und löschen.
Gruß Boris
Gruss Rainer
Gruss Rainer
ersetze die If-Anweisung bitte.
Damit ist der restliche Code wirklich flexibel.
Sorry.
If Cells(Cr, CC) = "" Then
Cr = Cells(Cr, CC).End(xlUp).Row
End If
Gruss Rainer
mit einer kurzen Liste hat der vorherige auch funktioniert ( 4 Stück).
Dieser sollte auch bei grösseren funktionieren,
Habs getestet :-)
Gruss Rainer
dann sag mir was nicht geht.
Habe es gestern abend mit mit 150 Datensätzen getestet.
Gruss Rainer