Namensliste in 3 Tabellenblätter

[Herbi58]

Hallo,

ich habe einem Bekannten angeboten zu helfen was schneller gesagt als getan ist (grins).
es sind 3 Tabellen blätter aus dem Jahre 2017,2018,2019 vorhanden
Nachname; Vorname; Geburtsdatum; Strasse  soweiz so gut
Die Personen sind nicht immer in der selben Strasse zu Hause oder sind nicht in allen 3 Tabellen vorhanden
Wie kann ich als Neuling dies in eine Tabelle gießen so daß die Personen mit allen Infos nur einmal in 
der 4 zusammengefassten Tabelle sichtbar und verwendbar sind.

Danke für die Infos
Herbert

[shift-del]

Moin

Jede Liste kopieren und im neuen Blatt einfügen. Spalte "Jahr" hinzufügen.
Die Liste geeignet sortieren und dann ggf. Zeilen korrigieren/löschen.

[Gast 123]

Hallo

wie der Kollege schon sagte, alle Daten in ein neues Blatt kopieren und nach Zunamen sortieren.  Dann kann dieses kleine Makro alle doppelten löschen. Sollte der Zuname mit Spalte B beginnen die Spaltennamen im Code entsprechend aendern. Viel Spass beim testen. Nach dem Löschen der doppelten Namen die Tabelle nach Jahr und Zuname neu sortieren nicht bergessen.

mfg Gast 123

Code:

Sub doppelte_Zeilen_löschen()
Dim AC As Range, lz1 As Long
    'Letzte Zelle in Spalte A suchen
    lz1 = Cells(Rows.Count, 1).End(xlUp).Row
   
    For Each AC In Range("A2:A" & lz1)
        If AC.Cells(1, "A") = AC.Cells(2, "A") Then  'Zuname vergleichen
        If AC.Cells(1, "B") = AC.Cells(2, "B") Then  'Vorname vergleichen
        If AC.Cells(1, "C") = AC.Cells(2, "C") Then  'Geb.Datum vergleichen
        If AC.Cells(1, "D") = AC.Cells(2, "D") Then  'Strasse vergleichen
        If AC.Cells(1, "E") = AC.Cells(2, "E") Then  'Ort vergleichen
           AC.Resize(1, 20) = Empty   'doppelte Zeile löschen
        End If
        End If
        End If
        End If
        End If
    Next AC
End Sub