Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Doppelte Einträge suchen ( 1 )
 
 
 
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