flaming
2008-10-09, 08:39:35
hallo leute,
ich habe folgendes script:
Sub DoppEinträgeAusListeEntf()
Dim r, c As Variant
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c)) <> 1 Then r(c).Interior.ColorIndex = 3
Next c
End Sub
das findet doppelte einträge und markiert diese rot.
ich möchte gerne, dass die doppelt gefundenen einträge in eine extra spalte geschrieben werden. kann man das irgendwie realisieren?
maik
ich habe folgendes script:
Sub DoppEinträgeAusListeEntf()
Dim r, c As Variant
Set r = Selection.Cells
For c = r.Cells.Count To 1 Step -1
If Application.CountIf(r, r(c)) <> 1 Then r(c).Interior.ColorIndex = 3
Next c
End Sub
das findet doppelte einträge und markiert diese rot.
ich möchte gerne, dass die doppelt gefundenen einträge in eine extra spalte geschrieben werden. kann man das irgendwie realisieren?
maik