Hallo zusammen,
kann mir jemand helfen?
Ich habe in einer Tabelle 2 Spalten die gleiche als auch unterschiedliche Werte in einer Zeile enthalten und möchte die Zeilen mit unterschiedlichen Spaltenwerten löschen.
Hallo,
i=1
while cells(i,1).value ""
if cells(i,1).value cells(i,2).value then
cells(i,1).entirerow.delete
end if
i=i+1
wend
Gruß
Harry
vorsicht!!!
09.11.2006 15:42:01
IngoG
Hallo zusammen,
Ihr müsst bei der Lösung vorsichtig sein...
Beim Löschen geht man besser von unten nach oben vor, da sonst der index durcheinander kommt.
Also zB so:
dim ii as long
for ii=range("a65536").end(xlup).row to 2 step -1
if cells(ii,1)cells(ii,2) then cells(ii,1).entirerow.delete
next ii
Gruß Ingo
PS eine Rückmeldung wäre nett...