AW: Zeilen löschen schnell mit Duplikate entf.
13.10.2014 10:44:00
Daniel
Hi
Zeilen einzeln per Schleifen zu löschen ist die langsamste Methode.
Excel 2007 stellt dir Werkzeuge bereit, dies wesentlich schneller zu tun:
Sub Loeschen()
Dim SP as Long
Dim ZE as Long
With Sheets("AMARETO-Report")
SP = .Specialcells(xlcelltypelastcell).Column + 1
ZE = .Specialcells(xlcelltypelastcell).Row
with .Range(.cells(11, SP), .Cells(ZE, SP))
.FormulaR1C1 = "=If(rc19=""x"",row(),0)"
.cells(1, 1).value = 0
.entirerow.RemoveDuplicates .Column, xlno
.clearcontents
end with
End with
End Sub
Gruß Daniel