Sub DoppelteDatenMarkieren()
' Findet doppelte Werte in einer Spalte und
' markiert die doppelten Daten
' geschrieben von Klaus-Dieter Oppermann
Dim s As Integer
Dim z As Integer
z = Range("A65536").End(xlUp).Row
For s = z To 2 Step -1
If Cells(s, 2) = Cells(s - 1, 2) Then
Cells(s, 4) = "doppelt"
End If
Next s
End Sub |
Will man in den Vergleich, die Inhalte mehrerer Spalten einbeziehen, muß die Zeile:
If Cells(s, 2) = Cells(s - 1, 2)
nach folgenden Muster verändert werden:
If Cells(s, 1) & Cells(s, 2) & Cells(s, 3) = Cells(s - 1, 1) & Cells(s - 1, 2) & Cells(s - 1, 3) Then
Das zweite Beispiel ist mit dem ersten fast identisch, nur werden hier die mehrfach vorkommenden
Werte gelöscht.
Beispiel 2:
Option Explicit
Sub DoppelteDatenLoeschen()
' Findet doppelte Werte in einer Spalte und
' löscht die gesamte Zeile
' geschrieben von Klaus-Dieter Oppermann
Dim s As Integer
Dim z As Integer
z = Range("A65536").End(xlUp).Row
For s = z To 2 Step -1
If Cells(s, 2) = Cells(s - 1, 2) Then
Rows(s).Delete Shift:=xlUp
End If
Next s
End Sub
Quelltexte eingefügt mit: Excel Code Jeanie |
Eine Beipieltabelle mit den Quellkodes habe ich in den
Downloadbereich gestellt.