ich habe folgendes Problem:
Ich möchte in zwei Tabellen identische Zeilen löschen lassen, d.h. ich habe in tabelle1 alle möglichen Newsletter-Adressen und Daten und in tabelle2, meine blacklist, die Adressen, die keinen Newsletter mehr bekommen sollen. Überprüft werden soll über die e-mail-adresse (Spalte i -> keine 1), ob man in tabelle1 ne adresse bzw. zeile rauslöschen kann. Ich hab von nem Freund folgenden Code bekommen, der allerdings nur für Spalte A funktioniert:
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
Ich wär für jede Hilf sehr dankbar !
Gruß Christoph