Hier ein kleines Makro um auf die Schnelle doppelte Datensätze innerhalb der aktuellen Markierung zu suchen.

Die Bereiche können auch getrennt sein. Das Ergebnis wird in einer MessageBox angezeigt.

 

Sollen die gefundenen Treffer auf einem Tabellenblatt gelistet werden, siehe auch

"Programmierung -> Doppelte Einträge suchen ( 2 )"

 

 

 

 

Der Code für ein allgemeines Modul.

 

Public Sub Doppelte_Eintraege()

'#####################################

'Code für ein allgemeines Modul

'Code sucht innerhalb der Markierung nach doppelten Datensätzen

'Autor: Jürgen Hennekes

'#####################################

 

Dim objDic As Object

Dim rngCell As Range

Dim strMsg As String

 

Set objDic = CreateObject("Scripting.Dictionary")

strMsg = "Folgende Einträge sind doppelt:" & vbCr & vbCr

 

For Each rngCell In Selection

  If rngCell.Value <> "" Then

    If objDic.exists(rngCell.Value) = False Then

      objDic(rngCell.Value) = 0

        Else

      strMsg = strMsg & rngCell.Value & vbCr

   End If

  End If

Next

 

MsgBox strMsg

 

End Sub