Microsoft Excel

Herbers Excel/VBA-Archiv

Doppelte Datensätze entfernen



Excel-Version: 5.0/7.0

Betrifft: Doppelte Datensätze entfernen
von: Boris
Geschrieben am: 31.05.2002 - 12:18:57

Hallo EXCEL-FREAKS,

ich brauche wiedereinmal Eure Hilfe...
Und zwar bei folgendem Problem:
Ich habe eine Liste mit 9 Spalten. Das Problem nun ist, daß ich in den Zeilen teilweise doppelte Datensätze habe. Wie kann ich (absoluter VBA-Leihe) ein Makro schreiben, daß die doppelten Datensätze löscht?

Ich hoffe ich habe mich einigermäßen verständlich ausgedrückt.
Vielen Dank für Euere Hilfe.
Boris

  

Re: Doppelte Datensätze entfernen
von: Klaus-Dieter
Geschrieben am: 31.05.2002 - 13:30:13

Hallo Boris,

mit diesem Makro funktioniert es:

Sub doppelte_Zeilen_löschen()
Dim verg(1000), z%
z = 2
' Tabelle sortieren
Columns("A:J").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Tabellenlänge ermitteln und Vergleichsstring bilden
Do While Cells(z, 1) <> ""
    verg(z) = Cells(z, 1) & Cells(z, 2) & Cells(z, 3) & Cells(z, 4) _
    & Cells(z, 5) & Cells(z, 6) & Cells(z, 7) & Cells(z, 8) & Cells(z, 9)
z = z + 1
Loop
' Doppelte Zeilen löschen
For r = z - 1 To Step -1
    If verg(r) = verg(r - 1) Then
        Rows(r).Select
        Selection.Delete Shift:=xlUp
    End If
Next r
End Sub

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite



  

Re: Doppelte Datensätze entfernen
von: Boris
Geschrieben am: 31.05.2002 - 13:45:48

Hallo Klaus-Dieter,

danke für Deine schnelle Antwort!!

Kannst Du mir noch bitte sagen, was ich an diesem Makro anpassen muß, wenn ich mehrere Spalten benutzen möchte.

Danke,
BOris


  

Re: Doppelte Datensätze entfernen
von: Klaus-Dieter
Geschrieben am: 31.05.2002 - 16:51:06

Hallo Boris,

Du mußt in dieser Zeile den Buchstaben J durch den Buchstaben der neuen höchsten Spalte ersetzen:
Columns("A:J").Select.
Weiterhin must Du diese Zeile anpassen:
verg(z) = Cells(z, 1) & Cells(z, 2) & Cells(z, 3) & Cells(z, 4) _
& Cells(z, 5) & Cells(z, 6) & Cells(z, 7) & Cells(z, 8) & Cells(z, 9)

Hier steht die Ziffer für die Spalte, 1 = A, 2 = B usw.

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

  

Re: Doppelte Datensätze entfernen
von: Boris
Geschrieben am: 03.06.2002 - 12:08:59

Hallo Klaus-Dieter,

Super. Ich denke, so werde ich mein Problem in den Griff bekommen!

Vielen Dank für Deine Bemühungen.

Boris


 

Beiträge aus den Excel-Beispielen zum Thema "Doppelte Datensätze entfernen"