2Spalten in 2 Sheets vergleichen
14.10.2005 13:27:41
wolfgang
es sollen 2 Sheets vergliechen werden.
Alle Zeilen im Sheets AV keine Übereinstimmung mit dem Sheet MA haben sollengelöscht werden.
Die Mitarbeiter sind im Sheet MA dem richtigen Segment zugeordnet und
einmalig.
GB Wolfgang,Müller
GB Werner,Meier
GB Gerd,Müller
GH Thomas,Müller
GI Wolfgang,Roßbach
usw.
Im Sheet AV ist der Mitarbeiter aber mehreren Segmenten zugeordnet.
z.B.
SEG MA
GO Wolfgang,Müller Zeile löschen
GB Werner,Meier
GB Wolfgang,Müller nicht löschen
GI Gerd Müller Zeile löschen
GB Gerd,Müller Zeile nicht löschen
GH Gerd,Müller Zeile löschen
mit einer Spalte klappt es.
Was muss ich machen um beide spalten zu prüfen
Sub fascherEM()
Dim i As Integer, rng As Range
With Sheets("Tabelle1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Sheets("Tabelle2").Columns(1).Find(.Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then Rows(i).EntireRow.Delete
Next i
End With
End Sub
Gruß
Wolfgang
Anzeige