PDA

Vollständige Version anzeigen : Doppelte Nummern suchen und löschen


JCR
21.06.2001, 09:58
Hallo,
bin Excel-Anfängerund habe folgendes Problem:

MS'97,
Eine riesige Liste, in der eine Spalte
mit "Teilenummer" benannt ist.
Nun gibt es einige Zeilen in denen manche Teilenummern doppelt vorhanden sind.
(Aber nur der Inhalt der Spalte "Teilenummer" ist gleich,
andere Spalten haben trotzdem verschiedene
Inhalte.)
Wie kann ich dem Programm jetzt sagen, daß
es alle doppelten Teilenummern finden soll
um dann jeweils die ganze Zeile zu löschen.
Es sollte praktisch jede Nr. nur einmal auftauchen.
mfg JR

Morli
21.06.2001, 11:43
Hallo JR,

Du mußt deine Tabelle zuerst mal nach der Spalte Teilenummern sortieren (gaaaanz wichtig!!!!!).

Mit dem folgenden Modul kannst Du dann die Tabelle (leg Dir vorher eine Kopie an) durchsuchen und die entsprechenden Zeilen lassen.

Sub test()
Dim c As Range
Dim alt As Variant


'Wert für alt aus der ersten Zelle des Suchbereichs auslesen
alt = ActiveSheet.Range("a1").Value

'Suche in der zweiten Zelle beginnen, sonst wird schon die erste Zeile gelöscht

For Each c In ActiveSheet.Range("a2:a15")
c.Select
Do While Selection.Value = alt
Selection.EntireRow.Delete shift:=xlShiftUp
Loop
MsgBox Selection.Address & " / " & alt
alt = Selection.Value
Debug.Print alt

Next

End Sub

Die Angaben für den Range mußt Du noch Deinen Gegebenheiten anpassen!

Gruß

Rainer :)

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten...</font>