Supportnet / Forum / Tabellenkalkulation
automatisches Doubletten Entfernen ??
Frage
Hallo Ich hab in Exel ne Nachnahmenliste
in der Spalte A.
1. habe ich diese Sortiert
2. möchte ich jetzt das aus 5* Meier in 5 zeilen untereinander nur ein Meier wird kann mir jemand helfen??
Antwort 1 von S2pid
Aus:
Bauer
Becker
Maier
Maier
Maier
Müller
Müller
Soll:
Bauer
Becker
Maier
Müller
werden.!
Bauer
Becker
Maier
Maier
Maier
Müller
Müller
Soll:
Bauer
Becker
Maier
Müller
werden.!
Antwort 2 von metax
Hallo S2pid
Das folgende VBA-Makro sollte dir eigentlich helfen können. Falls Du damit Probleme hast, kannst Du dich ja nochmal melden.
Sub Doppeltes_Löschen()
Cells(1, 1).Select
Selection.CurrentRegion.Select
zeilenEnde = Selection.Rows.Count
For i = 1 To zeilenEnde
Cells(i + 1, 1).Select
Select Case Cells(i + 1, 1)
Case Is = Cells(i, 1)
Selection.EntireRow.Delete
i = i - 1
Case Is = ""
GoTo marke:
End Select
Next i
marke:
End Sub
Bei dieser Routine stehen die doppelten Namen in der ersten Spalte, wenn das bei dir anders aussieht, mußt du den Spaltenindex entsprechend ändern.
Natürlich werden hier neben der einzelnen Zelle die Zeilen mitgelöscht
Viel Erfolg
Das folgende VBA-Makro sollte dir eigentlich helfen können. Falls Du damit Probleme hast, kannst Du dich ja nochmal melden.
Sub Doppeltes_Löschen()
Cells(1, 1).Select
Selection.CurrentRegion.Select
zeilenEnde = Selection.Rows.Count
For i = 1 To zeilenEnde
Cells(i + 1, 1).Select
Select Case Cells(i + 1, 1)
Case Is = Cells(i, 1)
Selection.EntireRow.Delete
i = i - 1
Case Is = ""
GoTo marke:
End Select
Next i
marke:
End Sub
Bei dieser Routine stehen die doppelten Namen in der ersten Spalte, wenn das bei dir anders aussieht, mußt du den Spaltenindex entsprechend ändern.
Natürlich werden hier neben der einzelnen Zelle die Zeilen mitgelöscht
Viel Erfolg