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

Doppelte Werte entfernen

Forumthread: Doppelte Werte entfernen

Doppelte Werte entfernen
13.01.2022 10:29:12
Marko
Hallo,
wie kann ich in einer Tabelle die doppelten Werte mit einem Makro löschen?
In der "Tabelle5" sollen in den allen Zeilen die Einträge von Spalte F bis I geprüft und wenn bereits vorhanden gelöscht werden.
Wenn ein Eintrag gefunden und gelöscht wurde, dann sollte sich die Tabelle5 - ohne die leere Zeile - neu sortieren.
Mit folgendem Makro übertrage ich die Daten in die Tabelle5, jedoch ohne die Einträge - auf doppelte Werte - zu prüfen.
Vielen Dank für Eure Unterstützung. Gruß, Marko

Sub Kopieren()
'Bereich kopieren
Sheets("Daten").Range("L24:P24").Copy
'einfügen in erste freie Zeile in Ausgabe
Sheets("Tabelle5").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Werte entfernen
13.01.2022 10:41:09
Oberschlumpf
Hi,
zeig bitte mal per Upload eine Bsp-Datei.
Ciao
Thorsten
AW: Doppelte Werte entfernen
16.01.2022 20:11:02
Uli
Hallo Thorsten,
ich melde mich hier, da mein Thema (screenupdating) aus dem thread verschwunden ist.
Kann ich das noch irgendwo finden?
Gruß
uli
AW: Doppelte Werte entfernen
13.01.2022 15:01:15
Yal
Hallo Marko,
so habe ich es gemacht:
_ Makrorekorder starten, Name "Duplikate_entfernen" eingegeben
_ gesamte Bereich F:I markieren
_ Menü "Daten", "Duplikate entfernen"
_ Prüfen, dass alle 4 Saplten wahrgenommen werden, dann ok
_ Makrorekoder aus
_ Makrorekorder starten, Name "Sortieren" eingegeben
_ gesamte Bereich F:I markieren
_ Menü "Start", "Sortieren und Filtern", "Benutzerdefinierte sortieren"
_ die 4 Spalte einrichten, ok
_ Makrorekorder aus
(getrennt, weil sonst zu viel in einem Block)
Der Code sieht so aus (na, ok, ein Bischen bereinigt, aber nichts hinzugefügt):

Sub Duplikate_entfernen()
ActiveSheet.Range("$F$1:$I$54").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo
End Sub
Sub Sortieren()
Selection.CurrentRegion.Select
With ActiveWorkbook.Worksheets("Daten").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("F1:F50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("G1:G50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("H1:H50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("I1:I50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("F1:I50")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
(in der Unterschied der ausgewählte Bereich F1:I54 zu F1:I50 siehst Du, dass 4 Zeilen Duplikat waren und gelöscht wurden)
Dann habe ich anschliessend einen Beitrag verfasst und alle Schritte genau beschrieben (ok, das musst Du nicht machen)
Ach so auch vergessen: ich habe zuerst Testdaten aufgebaut, weil Du dir die Mühe erspart hast, eine Datei zu posten.
Auf einer Rückmeldung freut man sich immer.
VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Formel für doppelte Werte in einer Liste...
Jessi

Hallo zusammen,
habe ein Problem, aber sicherlich ein nicht unzulösendes für Euch:
Ich habe eine Liste mit mehren Einträgen in einer Spalte z.B.
A
B
C
A
A
B
D
Z
Ich möchte nun die Spalte durchsuchen nach allen vorhanden UNTERSCHIEDLICHEN Einträgen, so...
17.06.2009 17:28:50
Thread-ID: 1082326
2 Beiträge
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Doppelte Einträge filtern
Rüdiger

Hallo zusammen!
Ich habe einen Datenbereich
Hier ein verkürztes Beispiel (A1-D100): Aufgebaut mit A1=Name, B1= Vorname, C1 = Straße, D1 = Wohnort)
Nun gibt es doppelte Datensätze. Ich möchte nun, dass ein neues Registerblatt erstellt wird in der Arbeitsmappe und dort die „gefiltert...
12.11.2009 13:12:54
Thread-ID: 1116509
5 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Doppelte Einträge summieren + löschen
ben

Hallo zusammen,
ich habe eine Excel Liste mit versch. Einträgen, bei denen in der Spalte C (ID Nummer) einige Einträge doppelt sind. Diese doppelten Einträge werden per VBA Code gelöscht.
Jetzt sollen aber die Mengen in Spalte E der gelöschten Einträge aufsummiert werden.
Bsp.: alle...
12.04.2010 21:02:46
Thread-ID: 1151310
14 Beiträge
Doppelte Zellen löschen
Claudia

Hallo zusammen,
ich habe ein großes Problem. Genauer gesagt habe ich eine Tabelle, in der sich die Überschriften in Zeile 1 befinden. In Spalte A befinden sich ab Zeile 2 die Kundennummern.
Ab Spalte B bis AZ befinden sich Artikel - darunter auch viele, die mehrfach vorkommen. Diese dop...
15.06.2010 19:20:30
Thread-ID: 1162030
10 Beiträge
Liste von allen doppelten Einträgen befreien
allen

Hallo,
ichh habe hier ein wahrscheinlich sehr simples Problem. Da ich aber leider keine Makros programmieren kann, für mich ein nicht lösbares.
Ich habe hier eine Excel-Liste, die aus zwei Tabellen mit leicht unterschiedlichen Spalten auf je einem eigenen Arbeitsblatt besteht.
Auf d...
28.12.2010 17:07:48
Thread-ID: 1193075
4 Beiträge
Doppelte Einträge löschen
Horst

Hallo Excel-Gemeinde,
Ein Tabellenblatt enthält in Spalte "AS" mehrere idente Datumswerte (siehe Bsp.), von denen nur jeweils der letzte Eintrag in der Tabelle stehen bleiben sollte, alle anderen Zeilen des gleichen Datums und der gleichen Uhrzeit sollen gelöscht werden.
Wie könnte ein...
30.05.2011 16:39:40
Thread-ID: 1216696
13 Beiträge
Anzeige
Doppelte EInträge in Zeilen anzeigen
Gerold

Hallo zusammen!
folgende Aufgabenstellung in Excel 2010. Meine Grundtabelle sieht etwa so aus:
A 2
A 5
A 3
B 3
B 5
C 4
aufgeteilt in 2 Spalten. Ich möchte nun die Spalte nach event. doppelten EInträgen durchsuchen lassen und folgendes Erge...
01.06.2011 09:41:38
Thread-ID: 1216967
3 Beiträge
Verknüpfte Auswahllisten ohne doppelte Einträge
kohlkopf

Hallo zusammen,
ich möchte möglichst bedienerfreundlich einen Preis aus einer Tabelle mit verschiedenen Materialien, Materialstärken und Materialfarben ermitteln.
Hierzu soll erst das Material, dann die Stärke und die Farbe über Auswahllisten gewählt werden können. Nach der Auswahl soll...
13.12.2011 00:17:23
Thread-ID: 1241721
6 Beiträge
doppelte Datensätze anzeigen
Thomas

Liebe Excelianer
Ich habe ziemlich umfangreiches Exceltool, mit welchem ich Dateien aus Ordnern einlesen und auf verschiedene Weise bearbeiten (suchen, öffnen, prüfen oder löschen) kann.
Da ich das Tool unter anderem zum Aufräumen benutze, benötige ich eine neue Funktion.
Folgendes...
19.12.2011 14:13:24
Thread-ID: 1242827
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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