Zeile loeschen wenn
11.09.2006 18:05:13
Andrea
ich hoffe mir kann jemand helfen. Ich moechte gerne ein Makro schreiben das folgenden Zweck erfuellt: In Spalte A, B und C meiner Tabelle stehen Werte. Wenn die Werte in Spalte A,B,C in Zeile i identisch sind mit den Werten in Spalte A,B,C in Zeile i-1 dann soll Zeile i geloescht werden.
Anbei der VBA code den ich bislang habe (funktioniert nur leider nicht so ganz).
Kann jemand helfen?
Sub delete_if()
Dim i As Long, Letzte As Long
Letzte = Range("A65536").End(xlUp).Row
For i = Letzte To 1 Step -1
If Range("A" & i).Value = Range("A" & i - 1).Value Then
If Range("B" & i).Value = Range("B" & i - 1).Value Then
If Range("C" & i).Value = Range("C" & i - 1).Value Then
Rows(i).EntireRow.Delete
End If
End If
End If
Next i
End Sub
Tausend Dank