Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten in jeweils einer Spalte zweier Tabellen vergleichen

Gruppe

Vergleich

Problem

Wie kann ich die Daten in jeweils einer Spalte von zwei Tabellen vergleichen und doppelte Datensätze löschen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub DoppelteRaus()
   Dim wksA As Worksheet, wksB As Worksheet
   Dim rng As Range
   Dim iRow As Integer
   Set wksA = Worksheets("Tabelle1")
   Set wksB = Worksheets("Tabelle2")
   iRow = 1
   Do Until IsEmpty(wksA.Cells(iRow, 1))
      Set rng = wksB.Columns(1).Find(wksA.Cells(iRow, 1))
      If Not rng Is Nothing Then
         wksA.Rows(iRow).Delete
         wksB.Rows(rng.Row).Delete
      End If
      iRow = iRow + 1
   Loop
End Sub