dat kan mbv het uitgebreide filter; daarmee kun je unieke records
laten kopiëren naar een ander locatie
als he in Excel 2003 is, dan kan het met de volgende macro:
Sub dubbelegetallen()
'
' dubbelegetallen Macro
' De macro is opgenomen op 10-9-2007 door Dhr W. Schukken.
'
R = ActiveCell.Row
C = ActiveCell.Column
X = 0
Do While Cells(R + X, C) <> ""
If Cells(R + X, C) = Cells(R + X + 1, C) Then
Rows(R + X).Delete Shift:=x1Up
X = X - 1
End If
X = X + 1
Loop
End Sub
Veel succes ermee!
hrt.grt. Wim
Groetjs Joyce
"Peter" schreef: