Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PQ zufällige Reihenfolge

Forumthread: PQ zufällige Reihenfolge

PQ zufällige Reihenfolge
26.04.2024 21:29:07
Christian
Hallo,

kurze Frage, habe in PQ mit einer benutzerdefinierten Spalte und Number.Random() as number meine Abfrage in eine zufällige Reihenfolge gebracht.

Gibt es auch eine Möglichkeit, dass sich diese zufällige Reihenfolge mit jedem Aktualisieren der Abfrage ändert?

Danke
Christian
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PQ zufällige Reihenfolge
26.04.2024 21:33:42
Eifeljoi 5
Hallo

Wo ist das Problem?
Aktualisieren
Ausprobieren
Off topic
27.04.2024 09:22:34
RPP63
Moin!
Nur ergänzend eine zufällige Sortierung einer Liste mittels Formel:
 DE
1AJ
2BI
3CA
4DC
5EB
6FH
7GG
8HD
9IE
10JF

ZelleFormel
D1=ZEICHEN(SEQUENZ(10;;65))
E1=SORTIERENNACH(D1#;ZUFALLSMATRIX(ZEILEN(D1#)))


Gruß Ralf
Anzeige
AW: Off topic
27.04.2024 13:09:13
Christian
Hallo Ralf,

danke erstmal für deinen interessanten Beitrag, interessant, weil ich diese Möglichkeit noch gar nicht kannte. Ich muss zugeben, ich verstehe die Formeln auch nicht so ganz, weil ich nicht weiß was die # bedeuten, habe das noch nie zuvor gesehen.

aber gut, es gab noch einen weiteren Grund, weshalb ich zu einer VBA Lösung gegriffen habe.
Die tägliche Arbeit mit der Mappe sieht so aus, dass neue csv Dateien heruntergeladen werden, per PQ weiterverarbeitet werden und dann mitsamt Formeln zahlreiche Statistiken und Berechnungen erstellt werden, welche sich dann dadurch täglich aktualisieren.

Aus dem Grund existierte bereits ein makro, dass schon angefangen beim runterladen und löschen der alten Dateien alles aktualisieren und sogar Auflisten von Änderungen alles mit einem einzigen Knopfdruck gemacht hat. Ich habe also um das in eine zufällige Reihenfolge zu bringen, einfach diesem großen bestehenden Makro hinzugefügt ein weiteres Sub hinzugefügt.

Gruß
Christian


Anzeige
Zur Erklärung
27.04.2024 16:01:14
RPP63
In D1 steht mit =ZEICHEN(SEQUENZ(10;;65)) eine Formel, die die Buchstaben A bis J spillt.
Auf diesen Bereich kann man natürlich "konventionell" mit D1:D10 zugreifen.
Manchmal ist es vielleicht mühselig, die Größe des Bereichs zu ermitteln.
Dann hilft die #-Notation.
D1 ist die Formelzelle, Excel nennt sie SpillParent.
D1# ist der dynamische Bereich, genannt SpillingToRange

Wenn in D1:D10 manuell eingetragene Namen sind, sortiert man die zufällig mittels
=SORTIERENNACH(D1:D10;ZUFALLSMATRIX(10))
Anzeige
AW: PQ zufällige Reihenfolge
26.04.2024 21:36:06
Christian
also bei mir ändert sich die reihenfolge nicht, wenn ich die Abfrage aktualisiere
Nachtrag
26.04.2024 21:38:04
Christian
beim ersten mal, als ich die Zufallszahlen ereugt habe, natürlich schon, aber die bleiben jetzt konstant und damit ändert sich die Reihenfolge bei weiteren Aktualisierungen nicht mehr
habs jetzt mit VBA gelöst
26.04.2024 21:57:21
Christian 
Private Sub NV_2()

        

    LetzteA = Worksheets("NV2").Cells(Rows.Count, 1).End(xlUp).Row

    

    ActiveWorkbook.Connections("Abfrage - NV").Refresh

        

    With Worksheets("NV2")

       

       .Range("B2:B" & LetzteA).FormulaLocal = "=ZUFALLSZAHL()"

       .Range("B2:B" & LetzteA).Value = .Range("B2:B" & LetzteA).Value2

       

       .Range("A2:B" & LetzteA).Sort Key1:=.Cells(1, 2), Order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom

                            

       .Range("B:B").Delete

       

    End With

End Sub


trodem danke
Christian
Anzeige
Frage nicht mehr offen
26.04.2024 21:57:47
Christian
AW: habs jetzt mit VBA gelöst
27.04.2024 13:50:50
Eifeljoi 5
Hallo

Ich weiß nicht warum es bei dir nicht funktioniert, bei mir klappt es einwandfrei.
Wenn ich nun dein VBA-Code so sehe könnte es bei dir in etwa so der PQ Code lauten. 
let

    LA = Table.Buffer(Excel.CurrentWorkbook(){[Name="NV2"]}[Content])

in

     Table.RemoveColumns(Table.Sort(Table.AddColumn(LA,"Zufallszahl", each Number.RoundDown(Number.RoundDown(Number.From(

     [Column1]) * 1000000) / 1000000, 6)),{{"Zufallszahl", Order.Ascending}}),{"Zufallszahl"})

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige