Gruppe
Allgemein
Problem
Wie kann ich die Spalten A und B nach doppelten Zellinhalten durchsuchen lassen und die gefundenen doppelten Werte in Spalte C auflisten lassen?
StandardModule: basMain
Sub VergleichKopieren()
Dim rng As Range, rngCell As Range
Dim iRow As Integer
Set rng = Range("A1").CurrentRegion
For Each rngCell In rng.Cells
If WorksheetFunction.CountIf( _
rng, rngCell.Value) > 1 Then
If WorksheetFunction.CountIf( _
Columns(3), rngCell.Value) < 1 Then
iRow = iRow + 1
Cells(iRow, 3).Value = rngCell.Value
End If
End If
Next rngCell
End Sub