Gruppe
Allgemein
Problem
Wie kann ich alle in einem Tabellenblatt doppelt vorkommenden Werte in einem neuen Arbeitsblatt unter Angabe der Zelladressen auflisten lassen?
StandardModule: basMain
Sub ListDoubles()
Dim wks As Worksheet
Dim rng As Range
Dim iRow As Integer
Set wks = ActiveSheet
Worksheets.Add after:=Worksheets(Worksheets.Count)
For Each rng In wks.UsedRange
If WorksheetFunction.CountIf(wks.UsedRange, rng.Value) > 1 Then
iRow = iRow + 1
Cells(iRow, 1).Value = rng.Value
Cells(iRow, 2).Value = rng.Address(False, False)
End If
Next rng
End Sub