Startseite

Inhalte in einer Tabelle vergleichen

In diesem Beispiel zeige ich, wie man in einer Tabelle nach doppelten Daten/Datensätzen suchen kann. Das ist sicher eine Aufgabe, die bei größeren Tabellen öfter anfallen kann.
Das erste Beispiel zeigt ein Makro, das in einer Spalte mehrfach vorkommende Werte findet und in der nächsten Spalte kennzeichnet.

Beispiel 1:

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.