ich habe hier einen Code, der zwei Tabellenblätter abgleicht (Tabelle1, Tabelle2). Wenn in Tabelle1 keine Übereinstimmung mit dem Inhalt zu Tabelle2 gemacht wird, soll die gesamte Zeile von Tabelle1 gelöscht werden.
Zusätzlich soll eine Ausnahme eingefügt werden:
Wenn in Tabelle1 in der Spalte 3 (C) ein "AB" oder "AC" drin steht - soll der Code an dieser Stelle nicht angewendet werden.
Tabelle1 wurde bereits deklariert und definiert.
Dim p As Long
Dim Tabelle2 As Worksheet
Set Tabelle2 = ActiveWorkbook.Sheets("BeispielTabelle2")
With Tabelle1
For p = .Cells(.Rows.Count, 3).End(xlUp).row To 1 Step -1
If WorksheetFunction.CountIf(Tabelle2.Columns(2), .Cells(p, 3)) = 0 Then
.Rows(p).Delete
End If
Next p
End With
Über jegliche Unterstützung freue ich mich sehr.
Viele Grüße
Basti