ich vergleiche 2 Tabellenblätter und will bei Zellengleichheit einer bestimmten Spalte die ganze Zeile löschen.
Kurioser Weise wird pro Durchlauf nur ein Teil gleicher Zeilen gelöscht.
Weiß hier wer Rat? Für Euere Hilfe bin ich dankbar.
In Tabellenblatt 2 befinden sich in Spalte A die Kriterien untereinander.
In Tabellenblatt 1 sollen in Spalte 2 verglichen werden, bei Gleichheit die komplette Zeile gelöscht werden. Hier mein Makro:
Sub Spaltenvergleich_gleiche_Zeilen_löschen()
'Hinweis: Tabelle 1 in 1 und Tabelle 2 in 2 umbenennen
Dim i As Integer, j As Integer
'Festlegen der Variabeln
Debug.Print i
Debug.Print j
EndeA = Worksheets("1").Cells(Rows.Count, 1).End(xlUp).Row
'legt das Ende des ersten Bereiches fest
EndeB = Worksheets("2").Cells(Rows.Count, 1).End(xlUp).Row
'legt das Ende des zweiten Bereiches fest
For i = 1 To EndeA
For j = 1 To EndeB
If Sheets("1").Cells(i, 2) = Sheets("2").Cells(j, 1) Then _
Sheets("1").Rows(i).Delete
Next j
Next i
End Sub