Supportnet / Forum / Tabellenkalkulation
excel doppelte einträge entfernen
Frage
hallo hab eine adressenliste, mit doppelten einträgen, diese sind jedoch nur beim namen ident, adresse ist nicht immer ident.
zum beispiel:
Fiebiger Karl 4850 Timelkam
Fiebiger Karl
gibst da eine fliter oder was
danke max
Antwort 1 von coros
Hi max,
benutze doch mal die Forumssuche (weiter unten auf der rechten Seite) und gebe dort mal das Wort doppelte ein. Dieses Thema mit entsprechenden Lösungen wird hier ständig behandelt. Ich gehe mal davon aus, dass da auch eine Lösung für Dich dabei ist.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
benutze doch mal die Forumssuche (weiter unten auf der rechten Seite) und gebe dort mal das Wort doppelte ein. Dieses Thema mit entsprechenden Lösungen wird hier ständig behandelt. Ich gehe mal davon aus, dass da auch eine Lösung für Dich dabei ist.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von max
hallo coros
leider finde ich nicht das passende im archiv
da meine zeilen nur in 2 namensfeldern gleich sind und teilweise die adresse fehlt kann ich die lösungen vom archiv nicht anwenden.
vielleicht gibts da ein makro od. was
danke max
leider finde ich nicht das passende im archiv
da meine zeilen nur in 2 namensfeldern gleich sind und teilweise die adresse fehlt kann ich die lösungen vom archiv nicht anwenden.
vielleicht gibts da ein makro od. was
danke max
Antwort 3 von nighty
hi max :)
deine frage ist unvollstaendig daher nur ein beispiel auf spalte a und b bezogen als vergleich bzw. dessen loeschung.
gruss nighty
Sub doppelte_loeschen_spalt_a_b()
With Worksheets(2)
Dim zaehler1 As Long
Dim zaehler2 As Long
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler2 = zaehler1 + 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(zaehler2, 1).Value = Cells(zaehler1, 1).Value And Cells(zaehler2, 2).Value = Cells(zaehler1, 2).Value Then
Rows(zaehler2 & ":" & zaehler2).Delete Shift:=xlUp
End If
Next zaehler2
Next zaehler1
End With
End Sub
deine frage ist unvollstaendig daher nur ein beispiel auf spalte a und b bezogen als vergleich bzw. dessen loeschung.
gruss nighty
Sub doppelte_loeschen_spalt_a_b()
With Worksheets(2)
Dim zaehler1 As Long
Dim zaehler2 As Long
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler2 = zaehler1 + 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(zaehler2, 1).Value = Cells(zaehler1, 1).Value And Cells(zaehler2, 2).Value = Cells(zaehler1, 2).Value Then
Rows(zaehler2 & ":" & zaehler2).Delete Shift:=xlUp
End If
Next zaehler2
Next zaehler1
End With
End Sub
Antwort 4 von want2cu
Hallo Max,
Coros hat dir m.E. schon einen sehr brauchbaren Hinweis gegeben. Und mir ein klein wenig Aufwand läßt sich hier im Excel-Bereich wirklich so einiges finden.
Vielleicht versuchst du es ja noch mal und stößt dann u.a. auf Daten-Filter-Spezialfilter - keine Duplikate
CU
want2cu
Coros hat dir m.E. schon einen sehr brauchbaren Hinweis gegeben. Und mir ein klein wenig Aufwand läßt sich hier im Excel-Bereich wirklich so einiges finden.
Vielleicht versuchst du es ja noch mal und stößt dann u.a. auf Daten-Filter-Spezialfilter - keine Duplikate
CU
want2cu