Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Duplikate entfernen

Forumthread: Duplikate entfernen

Duplikate entfernen
27.07.2023 08:43:13
Mirel
Hallo,

ich verstehe nicht wo der Fehler liegt.
Danke!
Gruß

Mirel

https://www.herber.de/bbs/user/162052.xlsm
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplikate entfernen
27.07.2023 09:26:58
peter.kreimer@gmx.at
Hallo

Mit Uwe's Code wird nur der Eintrag in der Spalte AB gelöscht, die Informationen in der Zeile bleiben aber erhalten! Wenn Du die ganze Zeile löschen möchstest:



.Range(.Cells(1, 1), .Cells(lol, lSp)).RemoveDuplicates Columns:=lSp, Header:=xlYes



Peter
Anzeige
AW: Duplikate entfernen
27.07.2023 09:10:47
UweD
Hallo

Dein Code
Sub Schaltfläche1_Klicken()
    Dim lSp As Long, lol As Long
    With Sheets("Menu")
    Application.CutCopyMode = False
        lSp = .Range("cListen").Find(what:="Ang_P_Zahl", LookIn:=xlValues, lookat:=xlWhole).Column
        lol = .Cells(Rows.Count, lSp).End(xlUp).Row
        Range(.Cells(1, lSp), .Cells(lol, lSp)).RemoveDuplicates .Columns(lSp), Header:=xlYes
    End With
End Sub



- Du befindest dich in Spalte (hier AB= 28)
- Dort existiert nur EINE Spalte; du willst in dem Bereich aber die 28te bearbeiten

Änder das so

        Range(.Cells(1, lSp), .Cells(lol, lSp)).RemoveDuplicates Columns:=1, Header:=xlYes



LG UweD
Anzeige
AW: Duplikate entfernen
27.07.2023 09:18:12
Mirel
Danke Uwe!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige