Index & Aggregat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dennis,
... also noch nicht die TOP3 je Linie (akt gibt es in den vorhandenen Daten sowieso nur Daten der Linie 511) .
Dafür nachfolgend der M-Code, wie er rein interaktiv in XL2016 erstellt wurde (geht sicherlich noch effektiver, aber so ist es einfacher nachvollziehbar).
Dieser ist so definiert, dass keine zusätzliche Datumeinstellung/-vorgabe notwendig ist.
let
Quelle = Excel.CurrentWorkbook(){[Name="MES_STOERBERICHT"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Monat", type any}, {"KW", type any}, {"Linie", type any}, {"Tag", type any}, {"Start", type datetime}, {"Ende", type datetime}, {"Dauer (min.)", type any}, {"Restleistung", type any}, {"Art", type any}, {"Einheit", type any}, {"Maschine", type any}, {"Kommentar", type any}, {"Zähler", type any}}),
#"Gefilterte Zeilen" = Table.SelectRows(#"Geänderter Typ", each ([Start] null)),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.TransformColumnTypes(Table.AddColumn(#"Gefilterte Zeilen", "HEUTE", each Date.From(DateTime.LocalNow())),{{"HEUTE", type number}}),
#"Hinzugefügte benutzerdefinierte Spalte1" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte", "Gestern früh", each [HEUTE]-3/4),
#"Hinzugefügte benutzerdefinierte Spalte3" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte1", "Heute früh", each [HEUTE]+1/4),
#"Geänderter Typ1" = Table.TransformColumnTypes(#"Hinzugefügte benutzerdefinierte Spalte3",{{"Gestern früh", type datetime}, {"Heute früh", type datetime}}),
#"Hinzugefügte benutzerdefinierte Spalte2" = Table.AddColumn(#"Geänderter Typ1", "akt_0", each [Start]>=[Gestern früh]),
#"Gefilterte Zeilen2" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte2", each ([akt_0] false)),
#"Hinzugefügte benutzerdefinierte Spalte4" = Table.AddColumn(#"Gefilterte Zeilen2", "akt", each [Ende] #"Gefilterte Zeilen1" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte4", each ([akt] = true)),
#"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen1",{"HEUTE", "Gestern früh", "Heute früh", "akt_0", "akt"}),
#"Sortierte Zeilen" = Table.Sort(#"Entfernte Spalten",{{"Dauer (min.)", Order.Descending}, {"Restleistung", Order.Descending}, {"Start", Order.Ascending}}),
#"Entfernte alternative Zeilen" = Table.AlternateRows(#"Sortierte Zeilen",3,99,3)
in
#"Entfernte alternative Zeilen"
Gruß Werner
.. , - ...

Hallo zusammen,
ich hab heute noch mals den ganzen Tag dran gesessen.
Blatt Störungen:
Hier habe ich mit Hilfsspalten, alle Infos auf "" gesetzt, welche mich eh nicht Interessieren.
Also so, dass ich nur den Zeitraum abbilde, sowie ungeplante Störungen.
Dann habe ich per Wenn(Linie=Linie;summe(Dauer*5^5);"") die Zahl künstlich potenziert.
Blatt Top:
Hier konnte ich nun mit folger Formel und der KGRÖSSTE(BEZUG;k) die 3 Größten Werte herausfinden.
=WENNFEHLER(INDEX(MES_STOERBERICHT[Dauer (min.)];VERGLEICH(KGRÖSSTE(MES_STOERBERICHT[511];1); MES_STOERBERICHT[511];0);1);"")
Die restlichen Infos habe ich mir mit der selben Formel aber angepasstem Index gezogen.
Das funktioniert nun hervorragend.
Ich kann automatisch den Aktuellen Tag rein setzen lassen und über meinen VBA-Kalender die Zeit beliebig ändern und auch in die Vergangenheit schauen, was grade nach einem Wochenende nötig ist.
@Boris @Werner... auch wenn ich eure Lösungen nicht benutzt habe, bedanke ich mich trotzdem ganz Herzlichst bei euch.
Denn auch Denkanstöße können manchmal große Wirkung haben.
In diesem Sinne, ab in die Rinn.... äh kommt Gut und Gesund ins neue Jahr, sowie eine besinnliche Weihnachtszeit!

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread