Hallo liebe Leute!
Ich wollte Zeilen die in den Spalten A (Anfanswert) und Spalte B (Endwert) mit der darunterliegenden Zeile übereinstimmen in ein anderes Arbeitsblatt kopieren. Leider fehlt aber jedesmal die letzte Zeile. Hier ist das Beispiel:
Irgendwie fehlt jedesmal die letzte Zeile. Exel kopiert immer 1 Datensatz zu wenig. Kannst jemand helfen? Danke!
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value And _
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(1, 1).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
es liegt sicherlich an der Problematik: "Selection.EntireRow.Copy"
Kann mir jemand helfen? danke!