Doppelgänger löschen

Forumthread: Doppelgänger löschen

25.10.2007 12:17:00

Arend

Liebe Experten,
ich habe in der Spalte A etliche Doppelgänger. Jetzt suche ich ein Makro, dass die Doppelgänger automatisch löschen kann, so dass jeder Wert nur noch einmalig auftaucht.
Könnt ihr mir helfen.
mfg
und herzlichen Dank
arend

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zahlreiche Beispiele im Forum

25.10.2007 12:30:00

NoNet
AW: Doppelgänger löschen

25.10.2007 12:30:35

Erich
AW: Doppelgänger löschen

25.10.2007 12:38:00

Arend
Cells(lngZ, 1).EntireRow.Delete

25.10.2007 12:40:59

NoNet
AW: Doppelgänger löschen

25.10.2007 12:41:08

Erich

Zahlreiche Beispiele im Forum

25.10.2007 12:30:00

NoNet

Hallo Arend,
zum Löschen doppelter Einträge gibt es zahlreiche Beiträge : teils mit spezialfilter, teils mit EXCEL-Funktionen, sicherlich auch per VBA.
Hier noch eine VBA-Lösung von mir :

Sub DoppelteLoeschen()
    Dim lngZ As Long
    For lngZ = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Application.CountIf(Range("A1:A" & lngZ - 1), Cells(lngZ, 1).Value) > 0 Then
            Cells(lngZ, 1).Delete shift:=xlUp
        End If
    Next
End Sub

Gruß, NoNet

AW: Doppelgänger löschen

25.10.2007 12:30:35

Erich

Hallo Arend,
was genau meinst du mit "Doppelgänger löschen"?
- Löschen der ganzen Zeile, wenn in Spalte A ein Doppelgänger steht
- Löschen der Zelle in Spalte A, wenn sie einen Doppelgänger enthält (restl. Spalten bleiben unverändert)
- Löschen des Doppelgänger-Werts (Zelle bleibt leer stehen)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Doppelgänger löschen

25.10.2007 12:38:00

Arend

War wirklich zu ungenau formuliert - sorry.
Neuer Versuch.
In der Spalte A tauchen Doppelgänger auf. Das Makro soll, wenn dieser Wert noch ein weiteres mal erscheint, diese Zeile löschen.

Cells(lngZ, 1).EntireRow.Delete

25.10.2007 12:40:59

NoNet

Hallo Arend,
dann diesen Code verwenden :

Sub DoppelteLoeschen()
    Dim lngZ As Long
    For lngZ = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Application.CountIf(Range("A1:A" & lngZ - 1), Cells(lngZ, 1).Value) > 0 Then
            Cells(lngZ, 1).EntireRow.Delete
        End If
    Next
End Sub

Gruß, NoNet

AW: Doppelgänger löschen

25.10.2007 12:41:08

Erich

Hallo Arend,
hier ein Makro, dass Doppelgänger nach 1 bis 3 Spalten findet und die Zeilen löscht:


Option Explicit
Sub DublettenZeilen_loeschen_1_3Sp()
'                    sucht alle Dubletten (nach 1 bis 3 Spalten) und löscht die Doppelten
Dim strS(1 To 3) As String, ii As Integer, intA As Integer, intR(1 To 3) As Integer
Dim lngR As Long, zz As Long, rngZZZ As Range
' ------------------------------------------------------------ Spalten-Vorgabe
strS(1) = "A"  ' hier 1. Spalte eintragen
strS(2) = "B"  ' hier 2. Spalte eintragen, wenn gewünscht
strS(3) = ""  ' hier 3. Spalte eintragen, wenn gewünscht
' ------------------------------------------------------------ Spaltennr, Anzahl Zeilen
For ii = 1 To 3
If strS(ii) > "" Then
intA = intA + 1
intR(intA) = Cells(1, strS(intA)).Column + 1
If lngR

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Forumthread: Doppelgänger löschen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread