AW: Dateien vergleichen-doppelte löschen
04.08.2008 20:30:00
Daniel
HI
1. beide Dateien öffnen
2. in Datei Hilfsspalte einfügen mit der Formel (einzugeben ab Zeile 2):
=ZÄHLENWENN([DateiB.xls]Tabelle1!$C:$C;C2)
3. alle Zeilen, in denen in der Hilfsspalte ein Wert grösser 0 steht, löschen
(bei grossen Datenmengen empfielt es sich hier, die Daten vorher nach der Hilfsspalte zu sortieren, bzw davor noch durch KOPIEREN und INHALTE-EINFÜGEN-WERTE die Formelen durch FIX-Werte zu ersetzen. das beschleunigt auch das Arbeiten mit dem Autofilter)
als Makro dann so
Sub Löschen()
ThisWorkbook.Sheets(1).Columns(1).Insert
With ThisWorkbook.Sheets(1)
With Range(.Cells(2, 1), .Cells(Rows.Count, 4).End(xlUp).Offset(0, -3))
.FormulaLocal = "=wenn(zählenwenn([DateiB.xls]Tabelle1!C:C;D2)=0;Zeile();wahr)"
.Formula = .Value
.EntireColumn.Sort key1:=.Cells(1, 1), order1:=xlAscending, header:=xlNo
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
On Error GoTo 0
.EntireColumn.Delete
End With
End With
End Sub
Zellbezüge und Dateinamen ggf noch anpassen.
Das Makro muss in Datei A
es müssen beide Dateien geöffnet sein.
Gruß, Daniel