zwei Zelleinträge -> zwei Zeilen

Wolfango · 2022-08-31T13:19:23+00:00

Hallo Experten, folgendes: In einer Spalte einer Tabelle befinden sich Personennamen. Meistens ist es ein Name, leider ab und zu auch zwei Namen gleichzeitig (alles getrennt durch Semikola, sowohl zwischen Vorname/Zuname als auch zwischen verschiedenen Namen). Diese Tabelle möchte ich nun (via Formeln!) in eine neue Tabelle überführen, in welcher dann der Name in der Spalte nur einmal vorkommt. Aus einer Zeile mit zwei Namen müssen also zwei Zeilen erzeugt werden. Das verlinkte Beispiel soll verdeutlichen was genau passieren soll. Ich meine mich zu erinnern, dass das irgendwie geht....bekomme es aber nicht mehr hin... Bitte Hilfe...Danke!!!! Wo Beispiel: https://www.herber.de/bbs/user/154896.xlsx

Hallo Wolfango,
...max zwei Namen zu trennen sind. Denn bei dem zweiten Namen hast Du keine Komma zwischen Vor- und Nachname.
Habe selbst kein XL365 womit eine Formellösung sicherlich auch realisierbar ist.
Es gibt aber eine Lösung ganz ohne Formeln und auch ohne VBA und zwar mit der Power Query (PQ) Funktionalität, die bereits ab XL2016 in Excel integriert ist.
(M)ein Lösung damit sieht z.B. im (interaktiv erstellten) M-Code wie folgt aus:


let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Spalte A", type text}, {"Spalte B", type text}, {"Spalte C", type text}}),
#"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Geänderter Typ", "Spalte B", Splitter.SplitTextByDelimiter(", ", QuoteStyle.Csv), {"Spalte B.1", "Spalte B.2", "Spalte B.3"}),
#"Zusammengeführte Spalten" = Table.CombineColumns(#"Spalte nach Trennzeichen teilen",{"Spalte B.1", "Spalte B.2"},Combiner.CombineTextByDelimiter(", ", QuoteStyle.None),"Spalte B.1"),
#"Ersetzter Wert" = Table.ReplaceValue(#"Zusammengeführte Spalten"," ",", ",Replacer.ReplaceText,{"Spalte B.3"}),
#"Entpivotierte andere Spalten" = Table.UnpivotOtherColumns(#"Ersetzter Wert", {"Spalte A", "Spalte C"}, "Attribut", "Wert"),
#"Hinzugefügter Index" = Table.AddIndexColumn(#"Entpivotierte andere Spalten", "Index", 1, 1, Int64.Type),
#"Pivotierte Spalte" = Table.Pivot(#"Hinzugefügter Index", List.Distinct(#"Hinzugefügter Index"[Attribut]), "Attribut", "Spalte A"),
#"Neu angeordnete Spalten" = Table.ReorderColumns(#"Pivotierte Spalte",{"Spalte B.1", "Wert", "Spalte C", "Index", "Spalte B.3"}),
#"Nach unten gefüllt" = Table.FillDown(#"Neu angeordnete Spalten",{"Spalte B.1"}),
#"Umbenannte Spalten" = Table.RenameColumns(#"Nach unten gefüllt",{{"Spalte B.1", "Spalte A"}, {"Wert", "Spalte B"}}),
#"Entfernte Spalten" = Table.RemoveColumns(#"Umbenannte Spalten",{"Index", "Spalte B.3"})
in
#"Entfernte Spalten"

Geht sicherlich noch kürzer, aber es tut es auch so.
Gruß Werner
.. , - ...

Danke allen fürs Nachdenken!!
Die Variante über Powerquery ist mir bekannt, es soll aber möglichst eine Formellösung werden.
Wenn ich es richtig verstanden habe, ist das Problem die nichteindeutige Trennung.
Mit viel Lesen und Denken habe ich eine Formellösung gefunden, die das Komma zwischen Vorname und Nachname belässt und das Komma zwischen zwei Personen durch ein Semikolon ersetzt (mit der Funktion WECHSELN)....siehe neuer Link:
https://www.herber.de/bbs/user/154901.xlsx
Im Beispiel habe ich das mal für bis zu vier Personennamen gemacht (Verschachtelungenmöglich), dass lässt sich dann noch fortsetzen.
Nach wie vor bleibt für mich aber die Frage offen, wie nun aus einer Zeile zwei Zeilen werden können (siehe gewünschtes Ergebnis im Link)?
Wo

zwei Zelleinträge -> zwei Zeilen

Forumthread: zwei Zelleinträge -> zwei Zeilen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

zwei Zelleinträge -> zwei Zeilen

Forumthread: zwei Zelleinträge -> zwei Zeilen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread