Nicht gemeinsame Zeilen in versch. Sheets löschen
26.11.2003 17:54:57
Christian
ich möchte zwei Spalten aus zwei Tabellenblättern vergleichen, und
die nichtgemeinsamen Werte aus einem Sheet löschen.
Hab es mal so versucht:
Option Explicit
Sub Loeschen()
Dim i As Long
Dim l As Long
Dim aReihe As Long
Dim geloeschte As Long
Dim bReihe As Long
Dim del
aReihe = Worksheets("ASheet").Cells(Rows.Count, 1).End(xlUp).Row
bReihe = Worksheets("BSheet").Cells(Rows.Count, 1).End(xlUp).Row
For i = aReihe To 1 Step -1
del = True
For l = bReihe To 1 Step -1
If Worksheets("ASheet").Cells(i, 1) = Worksheets("BSheet").Cells(l, 1) Then
del = False
Exit For
End If
Next l
If del Then
Worksheets("ASheet").Cells(i, 1).EntireRow.Delete
geloeschte = geloeschte + 1
End If
Next i
MsgBox "Es wurden " & geloeschte & " Zeilen gelöscht !"
End
Sub
Klappt aber nicht. Er werden immer alle Zeilen aus ASheet gelöscht.
Die Spalten haben den Inhalt (exemplarisch)
Im Blatt ASheet :
15
16
17
18
19
20
21
22
23
Im Blatt BSheet
15
15
15
16
18
18
20
20
20
22