Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Werte - Zeile löschen - Zusatz

Doppelte Werte - Zeile löschen - Zusatz
22.12.2020 04:50:26
Matthias
Hallo zusammen,
ich möchte gern die gesamte Zeile bei doppeltem Wert aus Spalte A löschen, allerdings mit Bezug auf D und hiervon den kleineren Wert löschen.
Jeder Wert in Spalte A ist nur 2 mal vorhanden, einmal mit einem größeren Wert und kleineren Wert in Spalte D. Hier muss der kleinere weg.
Würde folgendes die doppelten Zeilen löschen? Und wie bekomme ich dann das zusätzliche Kriterium hin?
Sub DoppelteZeilenEntfernen() Dim LetzteZeile As Long Dim Zeile As Long LetzteZeile = Range("A" & Rows.Count).End(xlUp).Row For Zeile = LetzteZeile To 1 Step -1 If WorksheetFunction.CountIf(Range("A1:A" & Zeile), Range("A" & Zeile)) > 1 Then Rows(Zeile).EntireRow.Delete End If Next End Sub

Danke im voraus für die Hilfe.
VG
Mattes

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Werte - Zeile löschen - Zusatz
22.12.2020 06:38:19
Oberschlumpf
Hi Matthias
eine Bsp-Datei per Upload mit allem, was erforderlich ist, um dein Problem testen + vielleicht auch lösen zu können, wäre schön.
Ich selbst muss gleich arbeiten, bin aber sicher, dass auch andere sich an deiner Bsp-Datei versuchen werden.
Ciao
Thorsten
AW: Doppelte Werte - Zeile löschen - Zusatz
22.12.2020 07:48:06
Matthias
Hallo Mattes,
Sortiere Deine Daten nach Spalte("A")
Damit stehen dann alle gleichen Werte in Spalte("A") untereinander.
Mit diesem angepassten Code könntest Du dann die Zeilen löschen.
Ich habs zur besseren Darstellung mal nur rot eingefärbt.
Option Explicit 
Sub DoppelteZeilenEntfernen()
Dim LetzteZeile As Long
Dim Zeile As Long
LetzteZeile = Range("A" & Rows.Count).End(xlUp).Row
For Zeile = LetzteZeile To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & Zeile), Range("A" & Zeile)) > 1 Then
If Range("A" & Zeile - 1).Value = Range("A" & Zeile) Then
If Range("D" & Zeile - 1).Value
Tabelle1

 ABCD
1Wert1  3
2Wert1  11
3Wert10  20
4Wert10  10
5Wert2  20
6Wert2  12
7Wert3  18
8Wert3  3
9Wert4  17
10Wert4  11
11Wert5  15
12Wert5  1
13Wert6  9
14Wert6  20
15Wert7  11
16Wert7  18
17Wert8  19
18Wert8  5
19Wert9  3
20Wert9  9


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: Doppelte Werte - Zeile löschen - Zusatz
22.12.2020 13:13:17
Matthias
Hallo Matthias,
vielen Dank. Das war schon richtig gut. Bei einigen Zeilen hat das nun fuktioniert.
Ich glaube die Schwierigkeit liegt darin, das in der Spalte A nur Textinhalt ist. Also keine Werte in eigentlichen Sinne, d.h. es müsste Text miteinander verglichen werden. Hat das wohl Einfluss?
Wenn ich nur die Suchfunktion in Excel stichprobenartig mache, findet er jeden doppelten Eintrag sofort... sind leider knapp 6000 Einträge ... doppelt ... Nun hat er ca. 100 erstmal rot markiert, löschen kann ich dann immer noch.
Auch hier: vielen vielen Dank im voraus für die Hilfe.
VG
Mattes
Anzeige
Jeder Wert in Spalte A ist nur 2 mal vorhanden
22.12.2020 16:00:41
Matthias
Hallo Mattes,
Zitat:
Jeder Wert in Spalte A ist nur 2 mal vorhanden.
Dafür habe ich Dir ja eine Lösung erstellt.
Wenn das nun doch anders ist müsstest Du dann schon ein paar
verständliche, eindeutige Beipiele zeigen.
Gruß Matthias
AW: Doppelte Werte - Zeile löschen - Zusatz
22.12.2020 13:28:27
Daniel
Hi
1. sortiere die Liste nach Spalte A als erstem und Spalte D als zweitem Kriterium.
Wähle die Sortiertichtung des zweiten Kriteriums (D) so, dass der Wert, der stehen bleiben soll, als erstes kommt, in deinem Fall also absteigend.
2. markiere die ganze Tabelle und wende die MenüFunktion
Daten - Datentools - Duplikate entfernen, mit der Spalte A als Kriterium an.
Wenn du das als Makro brauchst, lass den Recorder mitlaufen.
Gruß Daniel
Anzeige

311 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Makro um doppelte Einträge zu suchen und zu filtern
Excelneuling2

Hallo Zusammen,
ich bin ein Excelneuling und habe dementsprechend noch nie ein Makro programmiert und hoffe auf Hilfe.
Mein Problem:
Ich habe eine Datenbank (siehe Beispieltabelle) in der x Zeilen und y Spalten vorhanden sind. Ich möchte ein Makro schreiben, welches doppelte Zeilen...
31.07.2010 16:44:49
Thread-ID: 1169831
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
4
3
8
13
9
9
3
12
2
5
13
2
2
2
4
1
7
2
4
10
4
1