Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalten A und B vergleichen und Doppel in C listen

Gruppe

Vergleich

Problem

Wie kann ich die Spalten A und B nach doppelten Zellinhalten durchsuchen lassen und die gefundenen doppelten Werte in Spalte C auflisten lassen?

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

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