Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte werte löschen, ohne zu verschieben

Forumthread: Doppelte werte löschen, ohne zu verschieben

Doppelte werte löschen, ohne zu verschieben
23.03.2017 19:24:00
Andy
Hallo zusammen,
ich versuche nun seit mehreren Stunden doppelte Werte in Spalte A zu zu finden, nur den ersten Wert stehen zu lassen und alle nachfolgenden Duplikate zu löschen, ohne dass die Zellen verschoben werden.
Bei der internen Funktion "Duplikate entfernen" werden zwar die Duplikate gefunden und entfernt, aber die dann verbleibenden Singelwerte stehen direkt untereinander.
Ich brauche aber eine Lösung, in der die verbleibenden Singelwerte genau da bleiben, wo sie auch vorher standen.
Habt Ihr einen Ansatz für mich?
Hier mal eine Musterdatei
https://www.herber.de/bbs/user/112380.xlsx
Vielen Dank schon mal und viele Grüße
Andy
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte werte löschen, ohne zu verschieben
23.03.2017 19:37:43
Daniel
Hi
da müsstest du dir mit einer Hilfsspalte behelfen.
Wenn die Werte sortiert bzw gruppiert sind, so das gleiche Werte direkt untereinander stehen, dann einfach so (für deine Beispieldatei)
in C4 diese Formel: =WENN(A4=A3;"";A4)
und bis zum Tabellenende runter ziehen.
Dann die Formel kopieren und in ab A4 als Wert einfügen.
Gruß Daniel
Anzeige
AW: Doppelte werte löschen, ohne zu verschieben
23.03.2017 19:40:51
KlausF
Hallo Andy,
probier mal:
Sub DuplikateLoeschen()
Dim strSuche As String
Dim i As Long
Dim x As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 4 Step -1
If Application.WorksheetFunction.CountIf(Range("A4:A" & i), Cells(i, 1)) > 1 Then
strSuche = Cells(i, 1).Value
For x = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row To 4 Step -1
If Cells(x, 1).Value = strSuche Then
If Application.WorksheetFunction.CountIf(Range("A4:A" & x), Cells(x, 1)) > 1  _
Then
Cells(x, 1).ClearContents
End If
End If
Next x
End If
Next
End Sub
In Deinem Beispiel bleibt in Zeile 24 die Ziffer 25 stehen, das wäre allerdings nicht korrekt.
Gruß
Klaus
Anzeige
AW: Doppelte werte löschen, ohne zu verschieben
23.03.2017 20:05:02
ChrisL
Hi Andy
Die Gretchenfrage ist ob Zeile 24 ein Fehler ist oder nicht. Mir wäre die Zeile übrigens nicht aufgefallen und ich hätte auf die gleiche Antwort wie Daniel tendiert.
Falls Zeile 24 korrekt = Daniel
=WENN(A4=A3;"";A4)
Falls Zeile 24 inkorrekt = Klaus
=WENN(ZÄHLENWENN(A$4:A4;A4)>1;"";A4)
In VBA würde ich zur Vermeidung der Schleife folgende Lösung anwenden:
With Range("C4:C" Cells(Rows.Count, 1).End(xlUp).Row)
.FormulaLocal = "=WENN(A4=A3;"""";A4))"
.OffSet(0, -2).Value = .Value
.ClearContents
End With
cu
Chris
Anzeige
AW: Doppelte werte löschen, ohne zu verschieben
23.03.2017 20:07:01
Andy
Achso,
ja, Zeile 24 war menschliches Versagen!
Das kann zum Glück mit Euren Lösungen nicht passieren!
Danke!
AW: Doppelte werte löschen, ohne zu verschieben
23.03.2017 20:05:34
Andy
Hallo Daniel und KlausF,
vielen vielen Dank!
Da das Löschen teil eines Programmes werden soll, verwende ich die Lösung von Klaus.
Funktioniert super!
Danke und habt einen schönen Abend!
Anzeige
AW: Doppelte werte löschen, ohne zu verschieben
23.03.2017 20:19:57
GraFri
Hallo Andy
Noch eine Möglichkeit:
Option Explicit
Sub Doppelte_löschen()
Dim myDic As Object
Dim Zeile As Long
Set myDic = CreateObject("Scripting.Dictionary")
For Zeile = 4 To 39
If myDic.Exists(Cells(Zeile, 1).Value) Then
Cells(Zeile, 1).Value = ""
Else
myDic.Add Cells(Zeile, 1).Value, ""
End If
Next Zeile
Set myDic = Nothing
End Sub
mfg, GraFri
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
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
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
Anzeige
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
Anzeige
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
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
doppelte Einträge löschen
André

Guten Morgen!
Ich hole von externen Excelmappen die Daten in eine Tabelle. Dann lösche ich die Leeren Zeilen. Diese beiden Makros klappen sehr gut, dank Eurer Hilfe.
Jetzt möchte ich doppelte Einträge löschen. Also in der Spalte A, wird ausgehend von den Einträgen der anderen Spalten,...
06.01.2012 08:42:01
Thread-ID: 1244826
3 Beiträge
Doppelte Einträge löschen
André

Schönen guten Tag!
Ich habe in meiner Literatur folgendes Makro gefunden und möchte damit auf einem Tabellenblatt "D" doppelte Datensätze in einer Liste löschen. Es soll die Spalte A verglichen werden. Die Spaltenüberschrift soll nicht sortiert bzw. gelöscht werden.
Sub DoppelteSätzeEli...
07.01.2012 14:11:12
Thread-ID: 1245059
3 Beiträge
Zuletzt gefundene doppelte Einträge löschen
Steffan

Hallo zusammen,
ich möchte in einem Tabellenblatt die Zeilen aller doppelt gefundenen Einträge in Spalte A löschen, wobei allerdings immer der zuletzt gefundene Datensatz erhalten bleiben soll.
Habt ihr einen Vorschlag für dieses Problem?
Vielen Dank
05.06.2012 10:51:02
Thread-ID: 1266165
2 Beiträge
Anzeige
Doppelte Werte suchen und anzeigen
Stephan

Guten Morgen zusammen,
ich stehe vor dem folgenden Problem. In einem Systemdownload der über mehre Seiten geht, soll es mir wenn der "Tag" mehrmals vorkommt alle anzeigen ggf. makieren) die eine andere "ID" haben, alle wo der die "ID" und der "Tag" immer gleich sind soll es mir nichts mache...
02.10.2012 09:21:55
Thread-ID: 1280191
8 Beiträge
Doppelte Einträge löschen
Rosi

Hallo Forum,
ich habe ein Problem mit dem Löschen (vorher summieren) von doppelten Einträgen.
Habe da etwas in der Recherche gefunden von dem ich denke dass man es anpassen kann?
Zur Verdeutlichung in der Anlage:
https://www.herber.de/bbs/user/82944.xls
kriegs irgendwie nich...
09.12.2012 16:35:28
Thread-ID: 1289952
3 Beiträge
Doppelte Werte in Zelle löschen
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem mit doppelten (kommaseparierten) Werten in einer Zelle meiner Exceltabelle. Ich hoffe Ihr könnt mir zur Lösung des Problems einen Tip geben! :)
Ein Beispiel: Zelle A1=8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,14726,1472...
23.01.2013 09:35:13
Thread-ID: 1295552
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Werte in Excel löschen, ohne zu verschieben

Schritt-für-Schritt-Anleitung

Um doppelte Werte in Excel zu löschen, ohne dass die verbleibenden Werte verschoben werden, kannst du folgende Schritte ausführen:

  1. Hilfsspalte erstellen:
    • Gehe zu einer freien Spalte neben den Werten, beispielsweise Spalte C.
    • In Zelle C

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige