Power Query, Synonyme erkennen und vereinheitlichen

Tabellenstruktur: Artikel, Bezeichnung
Tabellenname: Artikelfamilie

Ergebnis:

Language M Code (über Power Query -> erweiterter Editor einfügen)


let
fnBereinigung_Synonyme = (input) => let
values = {
{"Sth", "Steckhuelse"},
{"Steckh", "Steckhuelse"},
{"Steckhülse", "Steckhuelse"},
{"ULT", "Umlauftraeger"},
{"Rd35", "Rd"},
{input, input}
},
Result = List.First(List.Select(values, each _{0}=input)){1}
in
Result,

 Quelle = Excel.CurrentWorkbook(){[Name="Artikelfamilie"]}[Content],
    #"Hinzugefügte benutzerdefinierte Spalte1" = Table.AddColumn(Quelle, "Custom", each Text.SplitAny([Bezeichnung],"_;,-/,'""' ")),
    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte1", "Artikelfamilie", each fnBereinigung_Synonyme([Custom]{0})),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"Custom"})
in
    #"Entfernte Spalten"


wiederverwendbare benutzerdefinierte Funktion (custom function) fxSynonyme
Folgenden Code in eine neue, leere Abfrage einfügen und Abfrage in fxSynonyme umbenennen

--- SCHNIPP ---

let
fnBereinigung_Synonyme = (input) => let
values = {
{"Sth", "Steckhuelse"},
{"Steckh", "Steckhuelse"},
{"Steckhülse", "Steckhuelse"},
{"ULT", "Umlauftraeger"},
{"Rd35", "Rd"},
{input, input}
},
Result = List.First(List.Select(values, each _{0}=input)){1}
in
Result
in
fnBereinigung_Synonyme

--- SCHNAPP --