AW: interessant ...
27.01.2023 15:36:18
ChrisL
Hi
An die Möglichkeit zur Verwendung der Titelzeile habe ich nicht gedacht. Aber halt mit Leerzeile danach und als Text-String.
Noch eine andere Lösung mittels Power-Pivot. Ein wenig getrickst, denn die "Hilfszellen" sind hiermit einfach im Datenmodell bzw. in PQ versteckt.
Die PQ-Lösung fast wie vorher. Auf die Pivotierung kann verzichtet werden. Dafür musste noch eine saubere Typenkonvertierung gemacht werden.
Abfrage 1 - nur Verbindung - Option "ins Datenmodell laden" aktivieren
let
Quelle = {1..4},
Zufallszahl = Number.IntegerDivide(Number.RandomBetween(0,1001),1),
#"In Tabelle konvertiert" = Table.FromList(Quelle, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.Buffer(Table.AddColumn(#"In Tabelle konvertiert", "Zufallsverteilung", each Number.Random())),
#"Hinzugefügte benutzerdefinierte Spalte2" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte", "ZufallszahlTotal", each Zufallszahl),
#"Hinzugefügte benutzerdefinierte Spalte1" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte2", "Zufallszahl", each Number.Round([ZufallszahlTotal]*[Zufallsverteilung]/List.Sum(#"Hinzugefügte benutzerdefinierte Spalte2"[Zufallsverteilung]),0)),
#"Geänderter Typ" = Table.TransformColumnTypes(#"Hinzugefügte benutzerdefinierte Spalte1",{{"Column1", Int64.Type}, {"Zufallszahl", Int64.Type}, {"ZufallszahlTotal", Int64.Type}, {"Zufallsverteilung", type number}})
in
#"Geänderter Typ"
Im Menü Power-Pivot, neues Measure
MeinMeasure
=SUM(Abfrage1[Zufallszahl])
Dann die Cube-Funktion in die Tabelle einfügen:
=CUBEWERT("ThisWorkbookDataModel";"[Abfrage1].[Column1].["&SPALTE(A1)&"]";"[Measures].[MeinMeasure]")
cu
Chris