Gruppe
Allgemein
Problem
Die Zeilen, deren Werte mit denen aus Spalte A von Tabelle2 identisch sind, sollen gelöscht werden.
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