Hilfe bei Codeumstellung
07.12.2005 18:57:14
Jürgen
folgender Code bewirkt das Auflisten doppelter Einträge im gesamten Tabellenblatt in einem neuen separaten Sheet. Wie kann der Code aussehen, damit nur aus einem markierten Bereich die doppelten Einträge gesucht werden. Z.B nur Spalte A oder B5:C100?
Option Explicit
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
Danke für einen Tipp, Jürgen