Doppelte Einträge farbig markieren

[Beck, Alwin]

Excel 2003

Hallo,

ich habe eine Adressdatei mit einigen tausend Adressen.
Ich sollte die Adressen prüfen ob es doppelte Einträge z.B.
bei der STraße gibt.

In Spalte E steht bei mir die Straße und Hausnr.

Beispiel : Musterstr. 11

Nun sollte in dieser Spalte geprüft werden, ob es doppelte
STraßeneinträge gibt,
und diese sollten dann farbig markiert werden - z.B. rot.

Wie mache ich das ?

Danke
Gruß
Albe

[Alexander Wolff]

Die Tastatur von Beck, Alwin wurde wie folgt gedrückt:

> Nun sollte in dieser Spalte geprüft werden, ob es doppelte
> STraßeneinträge gibt,
> und diese sollten dann farbig markiert werden - z.B. rot.

2 Möglichkeiten:

a) nach E sortieren und ein Feld X2: =E1=E2 anfügen (runterkopieren)
X dann nach WAHR autofiltern

oder

b) E2: Format bed.Formatierung FormelIst =ZÄHLENWENN(E:E;E2)>1
Format gleich auf ganze Spalte zuweisen oder
mit Bearb. InhalteEinfügen Formate die Spalte E überkopieren

Achtung: ungetestet! Bitte an einer Dateikopie durchführen.
--
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

[Beck, Alwin]

"Alexander Wolff" <oo...@gmx.de> schrieb im Newsbeitrag
news:gs7jtr$knl$00$1...@news.t-online.com...

Hallo,
danke für die Hinweise. Habe es nun über VBA gelöst - geht schneller :

Private Sub CMD_Strasse_Click()

Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

'Spalte E = 5 wird auf doppelte Sätze durchsucht

lngZeile = Cells(Rows.Count, 5).End(xlUp).Row

For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 5).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 5),
Cells(lngZeile, 5)), strSuchwert) <> 1 Then
Cells(lngZeilenSprung, 5).Interior.ColorIndex = 3
End If
Next lngZeilenSprung

End Sub