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ß UweDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen