Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nicht-Identische Zeilen löschen

Nicht-Identische Zeilen löschen
12.10.2006 13:43:44
Benstöm
Guten Tag zusammen,
ich möchte in Spalte "B" ca. 12.000 Zeilen lang, in einer Zelle z.B. A2 mit B2 und dann B2 mit C2 usw. prüfen, ob die Zellinhalte identisch sind. Sofern das der Fall ist soll die Zeile erhalten bleiben. Jede Zeile die keine weitere identische Zeile hat soll gelöscht werden.
Als Ergebnis soll rauskommen, dass Zeilen die in Spalte "B" keine doppelten Einträge haben gelöscht werden.
Vorher:
B440SVNP 00:00:83:2E:7E:F9
00:00:83:2E:81:CF
B506T1EP 00:00:83:2E:85:D9
B506T1EP 00:00:83:2E:85:D9
B380T3AL 00:00:83:2E:8D:55
B330T3EU 00:00:83:2E:8D:DE
B330T3I7 00:00:83:2E:8E:47
Nachher:
B506T1EP 00:00:83:2E:85:D9
B506T1EP 00:00:83:2E:85:D9
Es wäre super wen ihr mir helfen könntet dieses Problem zu lösen.
Vielen Dank
Benny

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht-Identische Zeilen löschen
12.10.2006 14:42:47
Jan3
Hi,
Stell mal ein konkretes Beispiel ins Forum!
Jan
AW: Nicht-Identische Zeilen löschen
12.10.2006 15:14:35
Martin
Sry Leute,
anbei ein Musterbeispiel.
Ich möchte in Spalte "B" ca. 12.000 Zeilen lang, in einer Zelle z.B. A2 mit B2 und dann B2 mit C2 usw. prüfen, ob die Zellinhalte identisch sind. Sofern das der Fall ist soll die Zeile erhalten bleiben. Jede Zeile die keine weitere identische Zeile hat soll gelöscht werden.
Als Ergebnis soll rauskommen, dass Zeilen die in Spalte "B" keine doppelten Einträge haben gelöscht werden.
https://www.herber.de/bbs/user/37344.xls
Gruß
Benny
Anzeige
AW: Nicht-Identische Zeilen löschen
12.10.2006 15:30:05
fcs
Hallo Benny,
folgendes Makro führt die Aktionen aus.

Sub NurMehrfache()
'Löscht alle Zeilen, deren Wert in der zu prüfenden Spalte nur einmal vorkommt
Dim Zelle As Range, wks As Worksheet, I As Long, Zeile1 As Long, Spalte As Integer
Dim Adresse As String
Set wks = ActiveSheet
Zeile1 = 2 '1. zu prüfende Zeile
Spalte = 2 'zu prüfende Spalte
With wks
For I = .Cells(.Rows.Count, Spalte).End(xlUp).Row To Zeile1 Step -1
If .Cells(I, 22) <> "X" Then
If I = Zeile1 Then
.Cells(I, Spalte).EntireRow.Delete
Else
Set Zelle = .Range(.Cells(Zeile1, Spalte), .Cells(I - 1, Spalte)).Find(what:=.Cells(I, Spalte), _
LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
.Cells(I, Spalte).EntireRow.Delete
Else
Adresse = Zelle.Address
'Zeilen markieren, die mehrfach vorkommen
Do
.Cells(Zelle.Row, 22) = "X"
Set Zelle = .Range(.Cells(Zeile1, Spalte), .Cells(I - 1, Spalte)).FindNext(After:=Zelle)
Loop Until Zelle Is Nothing Or Adresse = Zelle.Address
End If
End If
End If
Next I
.Columns(22).ClearContents 'Markierungen wieder löschen
End With
End Sub

Gruß
Franz
Anzeige
AW: Nicht-Identische Zeilen löschen
13.10.2006 07:59:02
Martin
Hallo Franz,
recht herzlichen Dank für deine super Unterstützung, das Makro läuft einwandfrei.
Gruß
Benny

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige