AW: Zellenabgleich zw. zwei Spalten
25.02.2008 03:12:03
fcs
Hallo texas,
ich hab dir den Spezialfilter in der Datei mal eingerichtet.
https://www.herber.de/bbs/user/50162.xls
Alternativ gibt es natürlich auch die Möglichkeit per Makro die nicht vorhandenen Einträge zu eliminieren.
Makro ist auch in der Datei.
Gruß
Franz
Sub NichtVorhandeneLoeschen()
'Löscht in Spalte B alle Einträge die in Spalte A nicht vorhanden sind
Dim Zeile As Long, ZeileL As Long, BereichA As Range, Zelle As Range
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
Set BereichA = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Application.ScreenUpdating = False
'Einträge Spalte B mit Bereich in A vergleichen
ZeileL = .Cells(.Rows.Count, 2).End(xlUp).Row
For Zeile = 1 To ZeileL
Application.StatusBar = "Zeile " & Zeile & " von " & ZeileL
Set Zelle = BereichA.Find(what:=.Cells(Zeile, 2).Value, lookat:=xlWhole, LookIn:=xlValues) _
If Zelle Is Nothing Then
.Cells(Zeile, 2).ClearContents
End If
Next
'Leerzellen in Spalte B löschen und nach oben schieben
Application.StatusBar = False
.Columns(2).SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
Application.ScreenUpdating = True
End With
End Sub