Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelgänger löschen

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
Anzeige
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

Anzeige
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.

Anzeige
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

Anzeige
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

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige