Dubletten Filtern

Forumthread: Dubletten Filtern

Dubletten Filtern

09.12.2003 12:51:11

Wolle

Hallo zusammen,

ich habe eine Adressliste die noch einige Dubletten enthält.
Wie kann ich einen Filter mit VBA erstellen der mir doppelte Einträge z.B. farblich markiert?

Danke im Voraus.

MfG, Wolle

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dubletten Filtern

09.12.2003 12:59:53

xXx
AW: Dubletten Filtern

09.12.2003 13:05:04

Karl-Otto Reimann
AW: Dubletten Filtern

09.12.2003 13:21:50

Danny Faak

AW: Dubletten Filtern

09.12.2003 12:59:53

xXx

Hallo,
das kannst du besser mit bedingter Formatierung machen.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!

AW: Dubletten Filtern

09.12.2003 13:05:04

Karl-Otto Reimann

Hallo Wolle
Wenn Deine Werte in A stehen, dann in B2:
=WENN(ZÄHLENWENN(A:A;A2)>1;"doppelt";"einfach")

Oder markieren in VBA:


Sub Wolle_Doppelte()
Dim intRow As Integer
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
If Application.CountIf(Columns("A"), Cells(intRow, 1)) > 1 Then
Cells(intRow, 1).Interior.ColorIndex = 6
End If
intRow = intRow + 1
Loop
End Sub

mfG KO

AW: Dubletten Filtern

09.12.2003 13:21:50

Danny Faak

Ist ganz einfach, hab das gerade erst fertig ;)

Also folgendes
_____________________________________________________________________________________
Public


Sub Filter()
Dim Zeilen As Integer
Dim n As Integer
Dim x As Integer
'Zeilen Zählen
Zeilen = Sheets(1).Range("A:A").SpecialCells(xlCellTypeConstants).Count
'Kontrollschleife
For n = 3 To Zeilen
'Suchschleife
For x = n + 1 To Zeilen
If Range("A" & n).Text = Range("A" & x).Text Then
'Farbigmarkieren
Range("A" & n).Interior.ColorIndex = 4
Range("A" & x).Interior.ColorIndex = 3
'Textmeldung
MsgBox ("Ein doppeltes gefunden in Zeile " & n & " und in Zeile" & x)
End If
Next x
'Suchleife Ende
Next n
'Kontrollschleife Ende
End Sub

_______________________________________________________________________________________

Funktioniert so das er nacheinander eines mit allen vergleicht, mach dir nur Gedanken was du durchsuchst, das Script gilt für eine Spalte (sollte nicht alzuschwer umzuschreiben sein oder?) weil sich Firmennamen leicht ändern können (Z.b Anstatt Firma GmbH -> Firmengesellschaft mbH). Ich lasse die Telefonnummern durchsuchen und schreibe diese immer so auf 12345/67890.
Viel Spass.

Beliebteste Forumthreads (12 Monate)

Forumthread: Dubletten Filtern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread