AW: Zeilenweise vergleich und löschen
04.10.2017 17:32:16
Daniel
Hi
geht doch ganz einfach: erst mal alle Zeilen per Formel kennzeichnen, die gelöscht werden müssen, z.B. mit dieser Formel in der ersten freien Spalte ab Zeile 2:
=Wenn(Und(A1="edge";A2="node");1;"")
dann kannst du über den Autofilter alle Zeilen mit 1 auswählen und löschen.
als Makro im Prinzip genauso, nur würde ich hier das Duplikateentfernen zum Löschen verwenden:
With ActiveSheet.UsedRange
With .Columns(.Columns.count + 1)
.Cells(1, 1) = 0
.Resize(.Rows.count -1, 1).Offset(1, 0).FormulaR1C1 = _
"=IF(AND(RC1=""node"",R[-1]C1=""edge""),0,Row())"
.EntireRow.RemoveDuplicates .column, xlno
.ClearContents
end with
End with
gruß Daniel