Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Doppelt vorkommende Werte mit Zelleadresse auflisten

Gruppe

Liste

Problem

Wie kann ich alle in einem Tabellenblatt doppelt vorkommenden Werte in einem neuen Arbeitsblatt unter Angabe der Zelladressen auflisten lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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