Ich habe folgendes Problem:
Ich habe drei unterschiedliche lange Spalten, in denen größtenteils identische Werte stehen. Als Ergebnis möchte ich die Werte angezeigt bekommen die in den anderen Spalten fehlen (die Werte in Spalte A sind immer entweder in B oder C enthalten), wie z.B.:
A B C
1 1 1
2 2 2
3 4 3
4 5 4
5 7 6
6 8
7
8
Ergebnis: A B C
3 5
6 7
8
Wer kann mir weiter helfen?
Gruß Didi
Ich habe drei unterschiedliche lange Spalten, in denen
größtenteils identische Werte stehen. Als Ergebnis möchte ich
die Werte angezeigt bekommen die in den anderen Spalten fehlen
(die Werte in Spalte A sind immer entweder in B oder C
enthalten), wie z.B.:
Hi Didi,
„die in den anderen Spalten fehlen“ ?
Sollen da alle drei Spalten miteinander verglichen werden? Dies passt aber nicht zu deinem Beispiel.
Nachfolgendes Makro vergleicht die Werte in Spalte A mit denen in Spalte B und diejenigen A-Werte die in Spalte B fehlen werden unten in Spalte B gelistet.
Desgleichen geschieht mit dem Vergleich Spalte A mit Spalte C in Spalte C.
Gruß
Reinhard
Sub fehl()
anz = Range("a65536").End(xlUp).Row
posB = anz + 1
posC = posB
For n = 1 To anz
Set x = Range(Cells(1, 2), Cells(anz, 2)).Find(Cells(n, 1), LookIn:=xlValues)
If x Is Nothing Then
Cells(posB, 2) = Cells(n, 1)
posB = posB + 1
End If
Set x = Range(Cells(1, 3), Cells(anz, 3)).Find(Cells(n, 1), LookIn:=xlValues)
If x Is Nothing Then
Cells(posC, 3) = Cells(n, 1)
posC = posC + 1
End If
Next n
Set x = Nothing
End Sub