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 löschen
In diesem Beispiel sollen alle doppelten Namen in Spalte A gelöscht werden.
"Hugo" ist in Zeile 2 und 4 vorhanden.
 
 
Tabelle1
 AB
1Vorname 
2Hugo 
3Egon 
4Hugo 
5Reiner 
6  
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
Public Sub Doppelte_loeschen()
'################################################
'Code für ein allgemeines Modul
'Autor: Jürgen Hennekes
'################################################
Dim objDic As Object
Dim lngZ As Long
Dim lngLast As Long
 
Set objDic = CreateObject("Scripting.Dictionary")
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
 
For lngZ = lngLast To 2 Step -1
    If objDic.exists(Cells(lngZ, 1).Value) = False Then
      objDic(Cells(lngZ, 1).Value) = 0
        Else
      Cells(lngZ, 1).EntireRow.Delete
    End If
Next
End Sub