Code Spaltenvergleich
19.04.2008 11:59:00
Heiko
Besser wäre es, wenn nicht doppelte Spaltn komplett gelöscht werden und die Zuordnung von Spalte B erhalten bleibt.
Könnt ihr mir da helfen?
Sub VergleichenUndLoeschen()
'Löscht alle Werte in A und B, die nicht in beiden Spalten enthalten sind
Dim zelle As Range, zellen As Range
For Each zelle In Range("A2", Cells(Rows.Count, "A").End(xlUp))
If [B:B].Find(zelle, lookat:=xlWhole) Is Nothing Then
If zellen Is Nothing Then
Set zellen = zelle
Else
Set zellen = Union(zellen, zelle)
End If
End If
Next
If Not zellen Is Nothing Then zellen.Delete shift:=xlUp
Set zellen = Nothing
For Each zelle In Range("B2", Cells(Rows.Count, "B").End(xlUp))
If [A:A].Find(zelle, lookat:=xlWhole) Is Nothing Then
If zellen Is Nothing Then
Set zellen = zelle
Else
Set zellen = Union(zellen, zelle)
End If
End If
Next
If Not zellen Is Nothing Then zellen.Delete shift:=xlUp
Set zellen = Nothing
End Sub
danke
Anzeige