Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie redundante Zeilen mittels VBA löschen?

Wie redundante Zeilen mittels VBA löschen?
21.01.2016 12:40:55
KH
Guten Tag zusammen,
ich stehe vor der Herausforderung mithilfe eines VBA eine Tabelle nach redundaten Einträgen durchsuchen zu wollen. Diese werden daraufhin gelöscht.
Derzeit habe ich das folgendermaßen gelöst: Sheets("Tabelle1").Range("$A$1:$U$10000").RemoveDuplicates Columns:=3, Header:=xlYes
Das Makro löscht bei redundanten Zeilen im führenden Kriterium Spalte C die untere Zeile.
Im Übrigen nochmals danke für die Antworten im anderen Thread auf die ich es nicht geschafft habe zu antworten...
Wie muss das Makro aussehen, mit welchem ich die obere der redundanten Zellen lösche?
VG & Danke
KH

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

Betreff
Datum
Anwender
Anzeige
AW: Wie redundante Zeilen mittels VBA löschen?
21.01.2016 13:05:52
Rudi
Hallo,
teste mal. 
Sub aa()
Dim r As Range, rD As Range
For Each r In Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
If WorksheetFunction.CountIf(Columns(3), r) > 1 Then
If WorksheetFunction.CountIf(Range(Cells(2, 3), r), r) = 1 Then
If rD Is Nothing Then
Set rD = r
Else
Set rD = Union(r, rD)
End If
End If
End If
Next r
If Not rD Is Nothing Then rD.EntireRow.Delete
End Sub
Gruß
Rudi

AW: Wie redundante Zeilen mittels VBA löschen?
21.01.2016 13:13:34
KH
Hallo Rudi,
cool, ich danke dir vielmals! Es erfüllt 1:1 meine Anforderung! :)
Eine Frage hätte ich noch: Wie kann ich (für später) Anpassungen vornehmen? Was definiert die 2 in Range(Cells(2, 3)?
Beste Grüße
KH

Anzeige
die Zeile. Siehe VBA-Hilfe. owT
21.01.2016 13:18:58
Rudi

AW: Wie redundante Zeilen mittels VBA löschen?
21.01.2016 13:23:47
Daniel
Hi
RemoveDuplicates lässt immer das erste Auftreten eines Duplikates stehen und löscht die folgenden.
Wenn das unterste Duplikat stehen bleiben soll, müsstest du die Sortierung umdrehen.
Wahrscheinlich gibt es irgendeine Zählnummer oder ein Datum, nach welchem du sortiern kannst (ggf mit umgekehrter Sortierreihenfolge)
Wenn es so ein Sortierkriterium nicht gibt, dann kannst du ja die Zeilennummer als Sortierkriterium hinzufügen:
With Sheets("Tabelle1").range("A1:V10000")
With .Columns(22)
.FormulaR1C1 = "=Row()"
.Formula = .Value
End with
.Sort key1:=.Cells(1, 22), order1:=xldescending, Header:=xlyes
.RemoveDuplicates 3, xlyes
.Sort key1:=.Cells(1, 22), order1:=xlascending, Header:=xlyes
.Clearcontents
end with

ganz ohne Sortieren würde folgendes funktioniern, allerdings ist die verwendete Funktion ZählenWenn nicht besonders schnell, ggf ist das obige mit dem sortieren dann schneller:
hierbei werden per Formel die Zeilen die gelöscht werden sollen mit 0 und die die stehen bleiben sollen mit der Zeilennummer gekennzeichnet. Dann wendet man das Removeduplicates auf die Hilfsspalte mit der Kennzeichungsformel an:
With Sheets("Tabelle1").Range("A1:V10000")
With .Columns(22)
.FormulaR1C1 = "=IF(CountIF(RC3:R10000C3,RC3)=1,Row(),0)"
.Formula = .Value
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlno
.ClearContents
end With
End with

Anzeige
AW: Wie redundante Zeilen mittels VBA löschen?
21.01.2016 13:52:42
KH
Hi Daniel, danke! Auf die Idee mit der Sortierung bin ich wahrscheinlich fast zeitgleich auch gekommen :)

317 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
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
7
4
5
7
18
3
1
7
4
3
7
9
4
3
1
6
10
3
8
4
2
15
9
12
15