Mir fehlt bei einem Doublettenabgleich ein Befehl
27.08.2004 13:34:16
Jürgen
möchte per Makro Adressdoubletten markieren. Habe bei der Recherche im Forum auch schon prima Hilfe bekommen. Folgendes Makro ist für meine Zwecke praktisch:
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
Hier werden ja die Einträge in Spalte A miteinander verglichen. Wie bekommen ich es hin, dass er mir Spalte A und z.B. Spalte C vergleicht und, sollten diese Einträge gleich sein, mir dann erst die Markierung setzt?
Bin für jede Hilfe dankbar.
Gruß Jürgen
Anzeige