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

mehrfach vorkommende Einträge komplett löschen

Forumthread: mehrfach vorkommende Einträge komplett löschen

mehrfach vorkommende Einträge komplett löschen
19.01.2006 13:40:17
front0708
Hallo Forum,
ich muss eine Tabelle mit ca. 10.000 Einträgen auf doppelte bzw. mehrfache Einträge überprüfen und komplett löschen.
Das heißt, wenn in A1, A2 und A3 identische Angaben stehen, dann sollen alle drei Zeilen komplett gelöscht werden.
Mit Dubletten entfernen komme ich also nicht weiter.
Wer weiß Hilfe ?
Vielen Dank
front0708
Anzeige

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 13:45:17
Hajo_Zi
Hallo Hans Bärbel,
Doppelte Löschen
angenommen Deine Daten stehen in A1 bis A?
Bereich markieren = Spalte A anklicken (evtl. eine Leerzeile vorher einfügen)
Daten / Filter / Spezialfilter
keine Duplikate
jetzt kannst du noch einstellen, ob an gleicher Stelle oder woanders placiert; hier also B1 eingeben
Spalte A anschließend löschen
Bei mehreren Spalten, muss die Liste eine Überschrift haben, am besten fett formatiert, dann erkennt Sie auch Excel als Überschrift.

Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 13:49:33
Dr.
Es sollen alle gleichen gelöscht werden.
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 13:50:18
front0708
Hallo Hajo_Zi,
damit bleibt aber ein Eintrag stehen. Es sollen aber alle gelöscht werden, also nicht nur die Dublikate.
Wenn also A1 bis A3 identisch sind, sollen auch A1 bis A3 gelöscht werden.
Weißt Du mehr?
Danke im Voraus
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 13:52:52
u_
Hallo,
zählenwenn in eine Hilfsspalte, kopieren, Inhalte einfügen, nach &gt1 filtern und die Zeilen löschen.
Gruß
Geist ist geil!
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 13:49:53
u_
Hallo,
lösch alle Zeilen mit Duplikaten in der markierten Spalte:

Sub doppelte_loeschen2()
Dim iCol As Integer, i As Long
Application.ScreenUpdating = False
iCol = Selection.Column
For i = Cells(65536, iCol).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Columns(iCol), Cells(i, iCol)) > 1 Then
Cells(i, iCol).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß
Geist ist geil!
Anzeige
falsch gelesen, ziehe zurück.
19.01.2006 13:51:13
u_
Hallo,
Gruß
Geist ist geil!
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 14:54:47
front0708
... ja es hat funktioniert.
Vielen herzlichen Dank an Euch alle und natürlich an Dr. Ihr habt mir gerad etwa 8 Stunden Arbeit erspart.
DANKE !!!
Grüße
Gordon
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 15:19:36
Hajo_Zi
Hallo Gordon,
kannst Du mal den Lösungsvorschlag von Dr. Posten. Ich habe ihn nicht gefunden in diesem Beitrag.
Gruß Hajo
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 15:50:15
u_
Hallo Hajo,
Dr. hat insofern zur Lösung beigetragen, dass er darauf hingewiesen hat, dass alle Einträge bei mehrfachem Vorkommen gelöscht werden sollen.
Das hatte nämlich bis dahin keiner begriffen. Auch du nicht.
Unterlasse doch in Zukunft diese un- bis blödsinnigen Bemerkungen.
Gruß
Geist ist geil!
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 16:07:22
Hajo_Zi
Hallo u_
was ist daran Blödsinn, wenn ich die Lösung von Dr. sehen will. Das Forum ist dazu da um Lösungen auszutauschen.
Gruß Hajo
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 16:15:02
front0708
Mensch,
da habe ich ich doch tatsächlich vertan. Die Lösung stammte natürlich von u_ !!
Sorry, Ehre wem Ehre gebührt.
Grüße,
Gordon
Hier noch mal seine Lösung:
~~~~~~~~~~~~~~~~~~~~~~~~~~~

Sub doppelte_loeschen2()
Dim iCol As Integer, i As Long
Application.ScreenUpdating = False
iCol = Selection.Column
For i = Cells(65536, iCol).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Columns(iCol), Cells(i, iCol)) > 1 Then
Cells(i, iCol).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 16:26:44
Gerd
Entweder du hast die Aufgabe falsch beschrieben oder der Code macht nicht das, was du willst.
mfg Gerd
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 18:45:15
Hajo_Zi
Hallo Hans Bärbel,
ich habe jetzt Zeit und konnte mir den Code jetzt genauer ansehen und ich muß Gerd Recht geben er macht nicht das was u- uns einreden wollte. "Es sollen alle Datensätze gelöscht werden die Doppelt sind. Also es soll keiner von den Doppelten übrig bleiben" Die Variante die Du mit dem Code realisiert hast hättest Du auch ohne VBA realisieren können, siehe mein Vorschlag.
Gruß Hajo
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
19.01.2006 22:30:12
Hübi
Hallo Hajo,
das war die Frage:
Das heißt, wenn in A1, A2 und A3 identische Angaben stehen, dann sollen alle drei Zeilen komplett gelöscht werden.
Mit Dubletten entfernen komme ich also nicht weiter.
Damit ist für mich klar, dass Spezialfilter schon mal nicht geeignet ist!!!!
Übrigens hat u_ den Vorschlag auch widerrufen.
Ein funktionierender Lösungsvorschlag würde mich allerdings auch interessieren.
Gruß Hübi
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
20.01.2006 10:32:32
front0708
Ja, schade... ich hatte gehofft, mir bleibt die Arbeit erspart.
Wer weiß, wies geht? ich freue mich über jede Antwort (auch per E-Mail). Kann doch nicht so schwer sein, oder?
Grüße
Gordon
AW: mehrfach vorkommende Einträge komplett löschen
20.01.2006 12:31:38
Hübi
Hi Gordon,
ich habe zwar vorn VBA null Ahnung. Mit diesem Code bleiben jedoch nur die Zeilen übrig, in denen der Wert wirklich nur einmal vorkommt. Alle Zeilen bei Mehrfachvorkommen werden gelöscht.
Vielleicht kann ein VBA-Profi die Dimensionierung des Array noch verbessern.

Sub doppelte_loeschen2()
Dim iCol As Integer, i As Long
Dim Zeile(1000) As Long
Application.ScreenUpdating = False
iCol = Selection.Column
For i = 1 To Cells(65536, iCol).End(xlUp).Row
If WorksheetFunction.CountIf(Columns(iCol), Cells(i, iCol)) > 1 Then
Zeile(i) = i
End If
Next i
For i = 1000 To 1 Step -1
If Zeile(i) <> 0 Then
Cells(Zeile(i), iCol).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß Hübi
Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
20.01.2006 20:16:15
Josef
Hallo Gordon!
Ich würde es so machen1
Sub doppelte_loeschen3()
Dim lngRow As Long, lngLast As Long
Dim intCol As Integer
Dim rngDel As Range

intCol = Selection(1).Column
lngLast = Cells(Rows.Count, intCol).End(xlUp).Row

On Error GoTo ErrExit
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For lngRow = 1 To lngLast
  If Application.CountIf(Columns(intCol), Cells(lngRow, intCol)) > 1 Then
    If rngDel Is Nothing Then
      Set rngDel = Rows(lngRow)
    Else
      Set rngDel = Union(rngDel, Rows(lngRow))
    End If
  End If
Next

If Not rngDel Is Nothing Then rngDel.Delete

Set rngDel = Nothing

ErrExit:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: mehrfach vorkommende Einträge komplett löschen
20.01.2006 20:16:41
Josef
Hallo Gordon!
Ich würde es so machen1
Sub doppelte_loeschen3()
Dim lngRow As Long, lngLast As Long
Dim intCol As Integer
Dim rngDel As Range

intCol = Selection(1).Column
lngLast = Cells(Rows.Count, intCol).End(xlUp).Row

On Error GoTo ErrExit
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For lngRow = 1 To lngLast
  If Application.CountIf(Columns(intCol), Cells(lngRow, intCol)) > 1 Then
    If rngDel Is Nothing Then
      Set rngDel = Rows(lngRow)
    Else
      Set rngDel = Union(rngDel, Rows(lngRow))
    End If
  End If
Next

If Not rngDel Is Nothing Then rngDel.Delete

Set rngDel = Nothing

ErrExit:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Oups ;-(( o.T.
20.01.2006 20:17:32
Josef
;-)

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Anzeige
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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