die 1. doppelte Zeile löschen
20.06.2005 16:07:34
Gisela
mit dem untenstehenden MAkro (ist von Martin Beck) lösche ich doppelte Zeilen, wenn in A1 gleicher Wert ist.
Es wird aber von unten immer die doppelte Zeile gelöscht.
Was muss ich ändern, wenn immer von oben die doppelte Zeile gelöscht werden soll.
Hintergrund ist der, dass neue Zeilen immer unten angefügt werden. Wenn dieser Datensatz bereits vorhanden, soll er gelöscht werden. Der alte Datensatz steht aber immer oberhalb der neuen DAtensätze.
Sub MehrfacheZeilenLöschen()
z = Range("A1").CurrentRegion.Rows.Count
s = Range("A1").CurrentRegion.Columns.Count
For i = 1 To z
For j = i + 1 To z
If Cells(i, 1) = Cells(j, 1) Then Rows(j).ClearContents
Next j
Next i
For k = z To 1 Step -1
If Cells(k, 1) = "" Then Rows(k).Delete Shift:=xlUp
Next k
End Sub
Vielen Dank für Eure Hilfe
Gisela