ich habe zwei Spalten (A und B) mit z.T. identischen Werten. Nun soll Excel mir die Spalten vergleichen und in Spalte C die doppelten Werte aufzeigen.
Das geht glaube ich einfach..oder?
Danke &
Gruss
Lee
Sub DoppelteInC()
Dim rngA As Range
Dim rngB As Range
Dim rngF As Range
Dim rngZ As Range
Set rngA = Range("A1", Cells(Rows.Count, 1).End(xlUp))
Set rngB = Range("B1", Cells(Rows.Count, 2).End(xlUp))
For Each rngZ In rngA
Set rngF = rngB.Find(rngZ.Value, , xlValue, xlWhole)
If Not rngF Is Nothing Then
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = rngZ.Value
Set rngF = Nothing
End If
Next rngZ
End Sub
Gruß Uwe