AW: Auszählen einmaliges auszählen jeden Wertes
05.09.2018 11:48:08
Günther
Moin,
willst du 7 als Ergebnis haben? Dann geht das gut mit Power Query, -> http://www.excel-ist-sexy.de/power-query-das-add-in/.
Hier der entsprechend generierte M-Code:
let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Spalte1", type text}, {"Spalte2", _
type text}}),
#"Entfernte Spalten" = Table.RemoveColumns(#"Geänderter Typ",{"Spalte2"}),
#"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Entfernte Spalten", "Spalte1", _
Splitter.SplitTextByDelimiter(", ", QuoteStyle.Csv), {"Spalte1.1", "Spalte1.2", "Spalte1.3"}),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen",{{" _
Spalte1.1", Int64.Type}, {"Spalte1.2", Int64.Type}, {"Spalte1.3", Int64.Type}}),
#"Entpivotierte Spalten" = Table.UnpivotOtherColumns(#"Geänderter Typ1", {}, "Attribut", " _
Wert"),
#"Berechnete diskrete Anzahl" = List.NonNullCount(List.Distinct(#"Entpivotierte Spalten"[ _
Wert])),
#"In Tabelle konvertiert" = #table(1, {{#"Berechnete diskrete Anzahl"}})
in
#"In Tabelle konvertiert"
Gruß
Günther