Doppelte Datensätze
18.03.2004 10:24:07
Karsten
Ich habe ein Problem mit doppelten Datensätzen und will nach diesen suchen und die doppelten Sätze in ein extra Arbeitsblatt kopieren. Diese Datensätze stehen logischerweise untereinander. Es muss der Anfangszeitwert (Spalte A) und der Endzeitwert (Spalte B) übereinstimmen.
Bisher habe ich dies leider nur für den Anfangszeitwert (Spalte A) hinbekommen.
hier mein Beispiel:
Range("A2").Select
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
Selection.EntireRow.Copy
Sheets("doppelte Datensätze").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("ECC").Select
ActiveCell.Offset(1, 0).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Wäre schön wenn Ihr mir helfen könntet. Danke im vorraus!