Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Duplikate entfernen und umbenennen

Forumthread: Duplikate entfernen und umbenennen

Duplikate entfernen und umbenennen
24.08.2015 13:54:57
Anni
Hallo zusammen,
ich habe eine Excel-Liste mit Adressdaten zum Verdandt für einen Serienbrief.
Es handelt sich um ca. 1.000 Personen, von denen ich Name, Vorname, Straße, Nr., PLZ und Ort habe. Einige von ihnen haben dieselbe Anschrift und wohnen im gleichen Haus. Diese Personen möchte ich von meiner Liste löschen. Sie haben denselben Nachnamen, dieselbe Straße, Hausnummer und Postleitzahl sowie Ort. Nur der Vorname ist unterschiedlich. Den Vornamen würde ich gerne durch den Namen "Familie" ersetzen.
Ich habe jetzt schon eine Zeit lange ausprobiert das über VBA hinzubekommen, jedoch leider ohne Erfolg. Ich freue mich über eure Vorschlage :)
Beste Grüße
Anni

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplikate entfernen und umbenennen
24.08.2015 15:43:28
Daniel
HI
ohne VBA gehe so vor:
1. Tabelle nach PLZ, Ort, Strasse, Nr, Name sortieren
2. in einer Hilfsspalte folgende Formel eintragen(Hilfspalte sei X, Spalte N: Name, Spalte P: PLZ, Spalte H: Hausnummer) usw), Formel für Zeile 2
=Wenn(und(N2=N3;P2=P3;S2=S3;H2=H3);x3+1;1)
die Hilfsspalte X kopieren und an gleicher Stelle als Werte einfügen
3. Daten - DatenTools - Duplikate entfernen auf die Tabelle anwenden.
hierbei die Spalten Name, PLZ, Ort, Strasse und Hausnummer als Kriterium verwenden
4. folgende Formel in die Spalte Y (nächste Hilfsspalte nach X), die Vornamen stehen in Spalte V:
=Wenn(x2=1;V2;"Familie")
verwende dann die Spalte Y als Spalte für den Vornamen.
Gruß Daniel
ps: Sollten in dem Bereich auch grössere Wohneinheiten vorkommen, fasst du damit aber u.U. auch zwei unterschiedliche Familien zusammen.
was auch vorkommt, das Eltern/Grosseltern-Generation im gleichen Haus leben, es aber trotzdem zwei getrennte Haushalte sind.

Anzeige
AW: Duplikate entfernen und umbenennen
24.08.2015 17:52:30
Anni
Vielen herzlichen Dank!!!
Es funktioniert super :)
und vor allem mit so einer praktikablen und leichten LÖSUNG.
Grüße Anni
Anzeige
Anzeige

Infobox / Tutorial

Duplikate entfernen und umbenennen in Excel


Schritt-für-Schritt-Anleitung

Um in Excel Duplikate zu entfernen und eine Spalte umzubenennen, kannst du die folgenden Schritte befolgen:

  1. Tabelle sortieren: Sortiere deine Tabelle nach den Spalten PLZ, Ort, Straße, Hausnummer und Name. So werden alle Duplikate zusammengefasst.

  2. Hilfsspalte einfügen: Füge eine Hilfsspalte (z.B. Spalte X) ein und trage in der zweiten Zeile die folgende Formel ein:

    =WENN(UND(N2=N3;P2=P3;S2=S3;H2=H3);X3+1;1)

    Diese Formel prüft, ob die Werte der Nachnamen und Adressen gleich sind und zählt die Duplikate.

  3. Werte einfügen: Kopiere die Hilfsspalte X und füge sie an derselben Stelle als Werte ein, um die Formeln zu entfernen.

  4. Duplikate entfernen: Gehe zu Daten -> Datenwerkzeuge -> Duplikate entfernen und wähle die Spalten Name, PLZ, Ort, Straße und Hausnummer aus, um die Duplikate automatisch zu entfernen.

  5. Vornamen umbenennen: In der nächsten Hilfsspalte (z.B. Spalte Y) kannst du die Vornamen durch "Familie" ersetzen. Trage die folgende Formel ein:

    =WENN(X2=1;V2;"Familie")

    Nutze anschließend die Spalte Y für den Vornamen.


Häufige Fehler und Lösungen

  • Formel funktioniert nicht: Stelle sicher, dass die Zellreferenzen korrekt sind und die Spalten richtig sortiert sind.

  • Duplikate bleiben bestehen: Überprüfe, ob du alle relevanten Spalten für das Entfernen der Duplikate ausgewählt hast.

  • Falsche Vornamen: Achte darauf, die Formel für die Hilfsspalte korrekt zu kopieren, damit sie richtig funktioniert.


Alternative Methoden

Falls du VBA verwenden möchtest, kannst du ein Makro schreiben, um Duplikate automatisch zu entfernen und die Vornamen zu ändern. Hier ist ein einfaches Beispiel:

Sub DuplikateEntfernenUndUmbenennen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Tabelle1") ' Tabelle anpassen

    ' Duplikate entfernen
    ws.Range("A1:D1000").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes

    ' Vornamen ersetzen
    Dim cell As Range
    For Each cell In ws.Range("B2:B1000") ' B ist die Spalte mit Vornamen
        If cell.Value <> "" Then
            cell.Value = "Familie"
        End If
    Next cell
End Sub

Praktische Beispiele

Nehmen wir an, du hast folgende Daten:

Name Vorname Straße Nr PLZ Ort
Müller Max Hauptstraße 1 12345 Ort1
Müller Anna Hauptstraße 1 12345 Ort1
Schmidt Peter Nebenstraße 2 12345 Ort1

Nach dem Anwenden der obigen Schritte solltest du folgendes Ergebnis erhalten:

Name Vorname Straße Nr PLZ Ort
Müller Familie Hauptstraße 1 12345 Ort1
Schmidt Peter Nebenstraße 2 12345 Ort1

Tipps für Profis

  • Verwende die Funktion „Daten filtern“, um eine bessere Übersicht über mögliche Duplikate zu erhalten.

  • Nutze bedingte Formatierungen, um Duplikate visuell hervorzuheben, bevor du sie entfernst.

  • Experimentiere mit Power Query für komplexere Datenbereinigungen und -transformationen.


FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten in Excel umbenennen?
Du kannst mehrere Spalten in Excel umbenennen, indem du die Spalte auswählst, rechtsklickst und "Umbenennen" wählst oder die Tastenkombination F2 verwendest.

2. Welche Excel-Version benötige ich für diese Funktionen?
Die beschriebenen Funktionen sind in Excel 2010 und späteren Versionen verfügbar. VBA kann ab Excel 2007 verwendet werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige