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

doppelte werte komplett löschen

Forumthread: doppelte werte komplett löschen

doppelte werte komplett löschen
27.10.2014 14:18:27
simonek
Hallo meine lieben,
ich bräuchte zwei codes.
in Spalte A sind doppelte werte und ich möchte gerne per VBA , das er alle doppelte Werte KOMPLETT löscht.
Der zweite code wäre:
Alle Zeilen löschen, wenn in Spalte D die Zahl 2 , 3 oder die 5 steht.
wäre sowas möglich?
Danke erstmal
Liebe Grüße Simone

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte werte komplett löschen
27.10.2014 14:59:52
yummi
Hallo Simone,
zu 1:
ActiveSheet.Range("$C$1:$D$4").RemoveDuplicates Columns:=1, Header:=xlYes
zu 2:

sub loescheZeile
dim letztezeile as long
dim i as long
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
for i = 1 to leztezeile
if ActiveSheet.Cells(i,4).value = 2  or ActiveSheet.Cells(i,4).value = 3 or ActiveSheet.Cells(i, _
4).value = 5 then
ActiveSheet.rows(i).delete
next i
end sub
müsste so passen
Gruß
yummi

Anzeige
AW: doppelte werte komplett löschen
27.10.2014 16:16:44
simonek
Hallo yummi,
zu 1 eine frage: muss der code so aussehen?
zu 1: 
Sub doppeltelöschen
ActiveSheet.Range("$C$1:$D$4").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Danke für deine Hilfe

AW: doppelte werte komplett löschen
27.10.2014 16:51:47
yummi
Hallo Simone,
wenn deine Tabelle von C1 bis D4 geht ja.
wenn du es variabel haben willst (für die Anzahl Zeilen):
z.B.: Tabelle von C1 bis D letzte Zeile 

ActiveSheet.Range("C1:D" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row). _
RemoveDuplicates Columns:=1, Header:=xlYes
In Der Klammer hinter Range gibst Du die 1. Spalte und Zeile und die letzte Spalte fix an.
Hinter Columns gibst du die Spalte deines gewählten Bereichs an in dem die Duplikate entfernt werden sollen (1 bedeutet in diesem Fall spalte C)
Header:=XlYes bedeutet du hast eine Überschriftszeile
Wenn nicht einfach xlNo
Gruß
yummi

Anzeige
AW: doppelte werte komplett löschen
27.10.2014 19:14:57
simonek
Hi yummi,
Super danke für deine ausführlich hilfe.
Danke danke
Liebe grüße simonenb

code funktioniert leider nicht
28.10.2014 05:20:52
simonek
Hallo yummi,
Leider funktioniert der erste code mit doppelte werte in Spalte A komplett löschen nicht.
Die Zeile wird gelb :-(
LG simone

AW: code2 leider auch nicht
28.10.2014 05:33:12
simonek
Hallo,
Beim zweiten code ( Spalte D die Zeilen löschen wenn die Zahl 2 oder 3 oder 5 )
Geht leider auch nicht.
Fehler bei " Next i" da kommt dann : Fehler beim kompilieren Next ohne For
Was nun?
LG simone

Anzeige
da fehlt sicher ein End If ...owT
28.10.2014 07:03:06
Matthias

und beachte die Schreibweise der Variable ...
28.10.2014 07:46:24
Matthias
Hallo
Solltest Du den Code von yummi 1:1 kopiert haben, musst Du noch mal anpassen.
letztezeile = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Row
for i = 1 to leztezeile
Das kann zwar passieren, aber wenn Du ohne Option Explicit arbeiten solltest
merkst Du u.U. nicht das die Variable beim 2.Einsatz falsch geschrieben wurde.

2.
Ich würde beim Löschen von Zeilen immer rückwärts arbeiten.
With Tabelle1 'CodeName des Registers
letztezeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = letztezeile To 1 Step -1
If .Cells(i, 4).Value = 2 Or .Cells(i, 4).Value = 3 Or .Cells(i, 4).Value = 5 Then
.Rows(i).Delete
End If
Next i
End With
Gruß Matthias

Anzeige
AW: code2 leider auch nicht
28.10.2014 09:25:13
yummi
Hallo Simone,
sry hatte den Code nur hier im Forum getippt, hab dein vba level nicht beachtet.
hier jetzt syntaktisch und funktional korrekt

Option Explicit
Sub loescheZeile()
Dim letztezeile As Long
Dim i As Long
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = letztezeile To 1 Step -1
If ActiveSheet.Cells(i, 4).Value = 2 Or ActiveSheet.Cells(i, 4).Value = 3 Or  _
ActiveSheet.Cells(i, 4).Value = 5 Then
ActiveSheet.Rows(i).Delete
End If
Next i
End Sub
füg den gesamten Code in ein leeres Modul deiner Datei ein.
Gruß
yummi

Anzeige
so wäre es auch gegangen ...
28.10.2014 09:44:24
Matthias
Hallo
Hättest auch einfach schreiben können
Danke, Matthias fürs Korrigieren.
Denn gelesen hast Du es 100%ig
Gruß Matthias

Danke Mattias
28.10.2014 10:16:18
yummi
ja hatte ich und stimme dir 100% zu.
lösche eigentlich auch immer rückwärts, weiß nicht warum gestern nicht :-)
aber so ist es für Simone auch nachvollziehbar. Ich woltle ja ihr helfen und nicht dich kritisieren.
Finde es ja gut wenn hier von vielen Seiten geholfen wird.
Gruß
yummi

Anzeige
code 1 macht probleme
28.10.2014 14:52:21
simonek
Hallo Danke an alle:-)
Der zweite code funktioniert supi:-).leider macht der code 1( alle doppelte Spalte A komplett löschen) noch Probleme.hoffe ihr könnt das auch noch lösen :-)
LG simone

was heißt das --> code 1 macht probleme
29.10.2014 10:56:13
Matthias
Hallo
Zitat:
leider macht der code 1( alle doppelte Spalte A komplett löschen) noch Probleme.hoffe ihr könnt das auch noch lösen
Was heißt das (macht Probleme) ?
Gruß Matthias
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
Anzeige
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
Anzeige
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 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
Anzeige
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