Live-Forum - Die aktuellen Beiträge
Datum
Titel
11.05.2024 22:49:27
VBA - NOT-Operator 2 Prozeduren
11.05.2024 22:35:39
Seltsame Code Laufzeit - von 2 Sek. bis 2,5 Minuten!!
11.05.2024 16:41:30
Daten einer XML mit Daten aus einer Zweiten ergänzen
11.05.2024 15:37:35
Excel / VBA Brüche nicht kürzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Duplikate entfernen

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

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige