Orte auflisten und in Sheets verteilen

[Luna-Maxx]

Hallo in die Runde,

ich habe schon in einem anderem Forum gepostet, (Post dort)   aber bin irgendwie noch "unglücklich" und hoffe, dass Ihr noch eine Idee habt. ich kopiere gern den Text hier nochmals rein und auch die Datei.

" ch steh gedanklich vor folgendem Problem. ich betreibe seit Jahren Ahnenforschung und pflege Daten in einem externen Programm als auch in Excel (hier Version 2016)

Auf einem Blatt (Datenbank) werden alle verfügbaren Daten zu allen Person erfasst, wie zb. Nachname, Vorname(n), Geb-Datum, Geb-Ort, Geb-Land, Heiratsdatum, Ort, Sterbedatum, Ort etc ...

Logischerweise kann der Ort also bei 3 Stellen auftauchen. ich habe dann ein Blatt hinzugefügt, um 
a) alle Geb-Orte nach Eindeutig zu sortieren
b) alle Heiratsorte nach Eindeutig zu sortieren
c) alle Sterbeorte nach eindeutig zu sortieren

Dann alle orte nach Eindeutig zu sortieren, so dass ich alle Orte nur einmal habe und diese dann fortlaufend nummeriert.
Ich möchte dann zu jedem eindeutigen Ort ein Sheet mit der Nummer haben (bisher manuell) wo ich dann über Filter alle Vorkommnisse zu dem Ort mir ins Blatt kopiere und dann den Aufbau der Verwandschaftsverhältnisse zu der Person eintrage.

Problem ist nun, wenn ich einen neuen Eintrag in die Datenbank mache (also ein neuer Ort) zerhaut es mir dann logischerweise die "Ortsnummerierung" und damit dann auch das Sheet, weil dann z.b. Danzig nicht Ort 5 ist, sondern 6,
aber die Daten dann dort sich auf Danzig beziehen. Ich hoffe ich konnte es einigermaßen gut erklären.
Ich hänge mal die Datei rein (ohne persönliche Namen / Daten)

Wie kann ich am besten vorgehen? Nicht sortieren?
oder kann man die Sheets quasi hart an den Ort verbinden?
Wenn es geht ohne VBA

Grüße aus dem Norden

[R J]

Ist das noch aktuell?

Falls ja, Du musst die Nummern vor der Sortierung der Ortsnamen vergeben.
PQ Solution:

PHP-Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    #"Andere entfernte Spalten" = Table.SelectColumns(Quelle,{"Geb.-#(lf)Ort"}),
    #"Gefilterte Zeilen" = Table.SelectRows(#"Andere entfernte Spalten", each ([#"Geb.-#(lf)Ort"] <> null)),
    #"Entfernte Duplikate" = Table.Distinct(#"Gefilterte Zeilen"),
    #"Hinzugefügter Index" = Table.AddIndexColumn(#"Entfernte Duplikate", "Index", 1, 1, Int64.Type),
    #"Neu angeordnete Spalten" = Table.ReorderColumns(#"Hinzugefügter Index",{"Index", "Geb.-#(lf)Ort"}),
    #"Sortierte Zeilen" = Table.Sort(#"Neu angeordnete Spalten",{{"Geb.-#(lf)Ort", Order.Ascending}})
in
    #"Sortierte Zeilen" 


[Luna-Maxx]

Moin Ralf,

boah ist das her .. lach .. hab ich total vergessen ..
ich habe mir über ne eindeutig sortiern und xverweis gelöst .. aber dein Vorschlag wird prompt getestet ...

Danke Dir

[R J]

...Voraussetzung ist natürlich, dass neue Einträge immer unterhalb des letzten und nicht irgendwo dazwischen gemacht werden...