Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In zwei Tabellen identische Zeilen löschen

Gruppe

Vergleich

Problem

Die Zeilen, deren Werte mit denen aus Spalte A von Tabelle2 identisch sind, sollen gelöscht werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub Loeschen()
   Dim var As Variant
   Dim iRow As Integer
   iRow = 1
   With Worksheets("Tabelle2")
      Do Until IsEmpty(.Cells(iRow, 1))
         var = Application.Match(.Cells(iRow, 1).Value, Columns(1), 0)
         If Not IsError(var) Then Rows(var).Delete
         iRow = iRow + 1
      Loop
   End With
End Sub