Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 14:37:20
Ampel in Excel macht nicht das was sie soll
23.10.2025 12:48:01
Alle Tabellenblätter mehrerer Dateien in einer Datei
23.10.2025 11:26:24
Drucker auslesen unter Office 2024
23.10.2025 10:01:30
Benannte Bereiche durchsuchen
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
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA alle doppelten Zeilen löschen

Forumthread: VBA alle doppelten Zeilen löschen

VBA alle doppelten Zeilen löschen
06.07.2016 13:00:14
Mimi
Hallo alle zusammen :)
ich habe folgendes Problem:
Ich habe eine Tabelle mit Vertragsnummern, mit 1000 oder mehr Einträgen. Die Vertragsnummern können aber durch Veränderungen doppelt eingetragen werden.
Ich möchte ein Makro schreiben, dass 1. prüft, ob die Vertragsnummer doppelt vorkommt und wenn ja 2. alle Zeilen bis auf die unterste, löscht. Ist das möglich? Ich finde leider keine Lösung.... Danke schon mal für eure Antworten :
Liebe Grüße
Mimi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA alle doppelten Zeilen löschen
06.07.2016 13:40:49
UweD
Hallo
Option Explicit 
 
Sub Dopp_raus() 
    On Error GoTo Fehler 
    Dim SP As Integer, ZE As Integer, LR As Integer, i As Integer 
    SP = 1 'Spalte A mit den Vertragsnummern 
    ZE = 2 ' wegen Überschrift 
     
    With ThisWorkbook.Sheets("Tabelle1") 
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 
        For i = LR - 1 To ZE Step -1 
            If WorksheetFunction.CountIf(.Range(.Cells(i + 1, SP), .Cells(LR, SP)), _
                .Cells(i, SP)) > 0 Then 
                    .Rows(i).Delete xlUp 
            End If 
        Next 
    End With 
    Err.Clear 
Fehler: 
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Gruß UweD

Anzeige
AW: VBA alle doppelten Zeilen löschen
06.07.2016 13:48:37
Mimi
Es klappt super, vielen Dank!!!!

AW: gern geschehen owt
06.07.2016 14:16:03
UweD

AW: VBA alle doppelten Zeilen löschen
06.07.2016 14:01:09
Werner
Hallo Uwe,
klinke mich ein, weil ich das auch brauchen kann. Passt wunderbar. Ich hatte mit RemoveDuplicates experimentiert, aber da bleibt ja der jeweils erste Eintrag stehen.
Von mir auch ein Dankeschön.
Gruß Werner

Anzeige
AW: VBA alle doppelten Zeilen löschen
06.07.2016 14:05:24
Daniel
Hi
ja, aber wenn der letzte Eintrag stehen beleiben soll, muss man ja einfach nur die Reihenfolge umkehren um das Duplikate-Entfernen anwenden zu können.
Wenn es eine vernünftige Tabelle ist, enthält sie ein Kriterium, welches die Reihenfolge vorgibt (in der Regel ein Datum oder eine vortlaufende Zählnummer für gleiche Artikelnummern) und nach dieser Spalte muss dann auf- oder absteigend sortiert werden, so dass der Eintrag, der stehen bleiben soll, an erster Stelle kommt.
Gruß Daniel

Anzeige
AW: Prima, dass du es auch gebrauchen kannst
06.07.2016 14:16:50
UweD
;

Forumthreads zu verwandten Themen

Autofilter in allen Tabellenblätter übernehmen
thoemmy

Hallo VBA Gemeinde
Ich habe ein Excel workbook mit 12 sheets.
In jedem Sheet ist in Spalte A bis C ein Autofilter (also 3 Autofilter pro sheet) gesetzt.
Nun möchte ich dass beim auswählen eines Autofilter, in allen anderen Tabellenblätter auch dieses Autofilter aktiv ist. Wie lässt...
11.05.2009 11:32:33
Thread-ID: 1074298
3 Beiträge
VBA Autofilter Kriterienlimitierung aufheben
alex

Hallo alle miteinander.
gibt es eine möglichkeit über VBA die Kriterienlimitierung des benutzerdefinierten autofilter von 2 auf 3 oder 4 zu erhöhen?
hab es mal so versucht, aber ohne erfolg. bekomme einen laufzeitfehler wenn ich mehr als 2 kriterien angebe
Sub test Selection.AutoFil...
15.03.2010 16:01:55
Thread-ID: 1145973
4 Beiträge
VBA alles löschen am XDatum ;-) ?
Marcy

Hallo,
ist es möglich mit VBA einen Streich zu spielen?
Ich habe einem Kollegen eine recht umfangreiche (für meine Verhältnisse :-) ) Tabelle gemacht.
Diese wollte ich dem zum Test zuschicken, dass er mal etwas damit rum spielen kann.
Jetzt fände ich es recht lustig, wenn z.B. a...
04.03.2011 12:45:37
Thread-ID: 1204216
14 Beiträge
VBA Code für Filter, Formatierung, Löschen
Padinjo

Hallo zusammen,
die Suche hat leider nichts brauchbares ergeben, deswegen versuch ich mein Glück in einem neuen Thema.
Vorab zur Info:
Ich habe eine Excel Datei, die durch eine Wenn-Formel sich bestimmte Zeilen aus einer anderen Datei zieht - Abhängig vom dem jeweiligen Datum das...
28.09.2011 09:20:11
Thread-ID: 1231781
10 Beiträge
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Anzeige
Autofilter über alle Tabellenblätter
Toumas

Hallo zusammen,
wie kann ich den Filter von Tabellenblatt 1 auf die anderen Tabellenblätter (Anzahl variiert) übernehmen ?
Ich habe hier im Archiv den Code : Sub AlleFiltern() Dim iWks As Integer For iWks = 2 To Worksheets.Count Worksheets(iWks).Range("A1").AutoFilter _ Field:=1, _ Crit...
04.04.2013 15:54:39
Thread-ID: 1307289
9 Beiträge
Anzeige
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
VBA Tabelle filtern
Bettina

Hallo zusammen,
ich hoffe Ihr könnte mir weiterhelfen.
Zur Problemstellung:
In der Tabelle "Daten" werden per Userform unterschiedliche Daten eingegeben.
z.B. In Spalte B stehen Fabrikate, in Spalte C Modell, in Spalte D Größe usw.
Nun möchte ich, dass über ein weiteres User...
08.07.2015 12:27:07
Thread-ID: 1435253
2 Beiträge
VBA: Tabelle filtern und Dateien erstellen
AlexK

Hallo Leute,
ich werde nicht schlau aus meinen Suchen im Netz:
Ich habe eine Tabelle, die Namen in der Spalte A und die Herkunft der Personen mit den jeweiligen Namen als Stadt in Spalte D enthält.
Nun will ich diese Tabelle filtern nach der Stadt und mit den Filterergebnissen Datei...
08.06.2016 18:38:37
Thread-ID: 1497791
7 Beiträge
Spezialfilter aus mehreren Tabellen VBA
Luna

Hola liebes Forum da bin ich wieder.
Ich habe mehrere Tabellen von verschiedenen Maschinen wo ich die Wartungsarbeiten mit MaschinenNr., Datum Anfang, Datum Ende, Zeit, Name und Art der Wartung eingebe. Diese möchte ich nun filtern. Ich habe mir dazu ein Makro gebaut welches aber nicht fun...
15.10.2016 21:43:32
Thread-ID: 1519844
10 Beiträge
Werte über Makro einfügen ohne Filter zu löschen
Marcel

Hallo zusammen,
ich habe mich schon dumm und dusselig gesucht aber keine Lösung (vielleicht weil es keine gibt?) gefunden...
Ich möchte Werte im sichtbaren Bereich eines gesetzten Filters einfügen (bspw. aus einer SVerweis-Formel Werte machen).
Das Problem ist, dass wenn ich das ma...
31.05.2017 10:00:32
Thread-ID: 1561323
3 Beiträge
Filter-Ergebnisse ohne Titel löschen (VBA)
Markus

Hallo,
ich möchte gerne per VBA die Ergebnisse eines dynamisch gefilterten Blattes löschen.
Bisher habe ich dafür folgenden Code, der grundsätzlich auch funktioniert.
Kann mir jemand sagen, was ich hier noch ändern muss, damit auch folgendes gegeben ist ?
1) Wie erreiche ich...
10.10.2017 18:20:31
Thread-ID: 1585118
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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