Tutorials

Excel VBA: Duplikate aus Bereichen und Tabellen entfernen

Melden

Hier ist ein umfassendes Tutorial, wie du mit Excel VBA Duplikate sowohl aus einfachen Zellbereichen (Ranges) als auch aus formatierten Excel-Tabellen (ListObjects) entfernen kannst.

Das Entfernen von Duplikaten gehört zu den häufigsten Aufgaben bei der Datenbereinigung. In VBA steht hierfür die Methode .RemoveDuplicates zur Verfügung. Dieses Tutorial zeigt dir, wie du sie effizient einsetzt.

1. Duplikate aus einem Zellbereich (Range) entfernen

Wenn deine Daten als einfacher Block auf dem Arbeitsblatt liegen, nutzt du das Range-Objekt.

Der Code:

Sub DuplikateInBereichEntfernen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Tabelle1") ' Name deines Blattes anpassen

    ' Definition des Bereichs (z.B. Spalte A bis C)
    Dim meinBereich As Range
    Set meinBereich = ws.Range("A1:C100")

    ' Duplikate entfernen
    ' Columns: Welche Spalten sollen auf Duplikate geprüft werden? (1 = Spalte A, 2 = B, etc.)
    ' Header: Hat der Bereich eine Überschrift? (xlYes oder xlNo)
    meinBereich.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

    MsgBox "Duplikate wurden entfernt!", vbInformation
End Sub

Erklärung der Parameter:

  • Columns: Hier gibst du an, welche Spalten identisch sein müssen, damit eine Zeile als Duplikat gilt. Array(1, 2) bedeutet: Nur wenn der Wert in Spalte 1 UND Spalte 2 gleich ist, wird gelöscht.
  • Header: xlYes bedeutet, dass die erste Zeile Überschriften enthält und nicht gelöscht wird.

2. Duplikate aus einer Excel-Tabelle (ListObject) entfernen

Arbeitest du mit "Intelligenten Tabellen" (Einfügen -> Tabelle), ist der Code etwas robuster, da sich die Tabelle automatisch anpasst, wenn neue Daten hinzukommen.

Der Code:

Sub DuplikateInTabelleEntfernen()
    Dim lo As ListObject

    ' Die Tabelle anhand ihres Namens ansprechen
    Set lo = ThisWorkbook.Sheets("Tabelle1").ListObjects("MeineTabelle")

    ' Duplikate in der gesamten Tabelle entfernen
    ' Wir prüfen hier beispielhaft Spalte 1 und 3
    lo.Range.RemoveDuplicates Columns:=Array(1, 3), Header:=xlYes

    MsgBox "Tabellen-Duplikate bereinigt!", vbInformation
End Sub

3. Dynamische Lösung (Aktueller Bereich)

Oft weißt du vorher nicht, wie viele Zeilen deine Daten haben. In diesem Fall kannst du CurrentRegion verwenden.

Der Code:

Sub DynamischeDuplikateEntfernen()
    ' Entfernt Duplikate im zusammenhängenden Bereich um Zelle A1
    Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

4. Schritt-für-Schritt Anleitung zur Implementierung

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Gehe im Menü auf Einfügen -> Modul.
  3. Kopiere einen der obigen Codes in das leere Fenster.
  4. Passe den Tabellenblattnamen (z.B. "Tabelle1") und den Spalten-Array (Array(1, 2)) an deine Bedürfnisse an.
  5. Drücke F5 zum Ausführen oder verknüpfe das Makro mit einer Schaltfläche in Excel.

Wichtige Hinweise & Tipps

  • Achtung Datenverlust: Die Methode .RemoveDuplicates löscht Zeilen unwiderruflich. Es gibt keinen "Undo"-Befehl für VBA-Aktionen. Erstelle im Zweifel vorher eine Sicherheitskopie deiner Daten.
  • Spalten-Index: Die Nummern im Array() beziehen sich immer auf den Bereich selbst, nicht auf das gesamte Arbeitsblatt. Wenn dein Bereich bei Spalte C beginnt, ist Spalte C die Nummer 1.
  • Groß-/Kleinschreibung: Excel VBA ignoriert beim Entfernen von Duplikaten standardmäßig die Groß- und Kleinschreibung (d.h. "Test" und "test" gelten als Duplikat).
  • Mehrere Spalten: Wenn du sicherstellen willst, dass eine Zeile nur gelöscht wird, wenn alle Spalten identisch sind, musst du jede Spaltennummer in das Array schreiben (z.B. Array(1, 2, 3, 4, 5)).
0