doppelte suchen und...
Black
ich stehe etwas an bei einer Programmierung.
Es soll ein Bereich durchsucht werden z.B. A25:W500 und alle Doppelten Einträge grün markiert werden.
Gleichzeitig sollen die Doppelten Einträge rausgeschrieben werden in ein neues Tabellen Blatt
Weiter soll noch angegeben werden wo sich sie die doppelten einträge befinden.
mein Ansatz wer so:
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
Vielen Dank für die Unterstützung
Black