In zwei Tabellen identische Zeilen löschen
08.07.2004 14:19:50
Christoph
ich habe folgendes Problem:
Ich möchte in zwei Tabellen identische Zeilen löschen lassen, d.h. tabelle1 ist ne Liste mit allen möglichen Newsletter-Adressen und die tabelle2 ist meine Blacklist, mit den Adressen, die keine Newsletter mehr bekommen sollen. Nun soll anhand der e-mail-adresse (Spalte I -> keine 1) überprüft werden, welche adressen man aus tabelle1 löschen kann. Ich habe folgenden Code von einem Freund 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
Wäre für jede Hilfe sehr dankbar!
Gruß
Christoph
Anzeige