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