Pivot Filter mit UND-Verknüpfung/ VBA?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ursula,
oha, Produktionslogistik. Materialfluss mit Ziel Optimierung der Transferzeiten, Bestände oder Maschinenauslastung?
Für deine Aufgabe würde ich alle MBM auf einer Buchstabe reduzieren, dann bilden sich ABCD-Ketten.
Verchiedene Auswertung sind dann denkbar:
Übersicht: Anzahl Kette pro Länge, wie lang ist die Durchschnittliche Kette, ...
Pro Kettenlänge, die Top 5 bis Top 10 (je nach Relevanz) nach Menge. Daraus Anteil, Min & max Dauer, Durchschnittsdauer, Varianz (Zwischen A-Start und D-Ende von ABCD).
Differenzierung kann da gemacht werden zwischen kompletter Kette und Ketten-Untermenge: ABC und BCD sind auch in ABCD vorhanden, aber wenn es um Gruppierung von Produktionsmittel geht, ist es sinnvoll diese Häufung ausfindig zu machen.
Schwierig wird, wenn man aus den Zeiten eine Aussage machen möchte, um die gegenseitige Beeinflussung zu entdecken: CD könnte schneller sein, wenn AD nicht dazwischen kommt...
Also jede Menge Spass!
Du kommst kaum darum, dein Daten mit VBA oder irgendeine andere ProgSprache umzuformen. Also Data Engineering. Power Query wird schnell nicht ausreichen, vor allem wenn Du dich einarbeiten muss, lieber die Zeit in VBA oder Python investieren. Excel wäre zuerst als Auswertungswerkzeug nicht verkehrt. Danach geht es Richtung Python, R, und andere Advance Analytics Werkzeuge.
Graph Datenbanken und Graph Algorythmen sind für solche Problemstellung sehr hilfreich.
Willkommen in die Welt der Data Scientist!
Viel Erfolg
Yal

Sub Clustering_eigen() Set wQ = ThisWorkbook.Worksheets("Original") Set wZ = ThisWorkbook.Worksheets.Add wZ.Cells(1, 1) = "Typ" wZ.Cells(1, 2) = "Länge" wZ.Cells(1, 3) = "AuftrNr" wZ.Cells(1, 4) = "M-Kette" wZ.Cells(1, 5) = "Dauer (s)" Set Tbl = wQ.ListObjects("Tabelle3") Sortiere wQ, Tbl.Name, "Meldezeit" Sortiere wQ, Tbl.Name, "Auftrag*ProNo*Sch" ReDim MBMListe(0) ReDim ZeitListe(0) For Each R In Tbl.ListRows Sammeln Next End Sub

Hallo Ursula,
negative Zeitspanne sollte es nicht geben, da wir davor dagegen eine Sortierung machen. Die Sortierung ist wohl anders zu steuern, wenn darunter eine aktive Tabelle (ListObject) liegt. Wusste ich nicht. Neue Code ist angepasst und tolerant, egal ob ListObject unterliegt odernicht.
Wo wir "sparen" können:
bis jetzt dröseln wir alle Aufträge runter bis zu zweier Folge, spricht aus einem 5er ergibt sich 2 4er, 3 3er, 4 2er (immer länge*(länge+1)/2 )
Wir könnten bei 3 oder 4 aufhören. Aber da -zumindest in deinem Beispiel- alles 4er oder 3er MBM-Kette sind, würde nicht vie übrig bleiben.
Die zu lange Kette könnte man "rauswerfen": in "Abstellen", wenn die gespeicherte Ketten-"Voll"-Länge (lngTotal) grösser als x, einfach nichts abstellen. Der gesamte Auftrag wird ignoriert.
Am Beispiel mit Ketten grösser als 8:
(Achtung: diese Beschränkung ist in der beigefügten Version vorhanden! Ich habe vergessen, es wieder rauszumachen)

    '[...]
LngTotal = UBound(MBMListe) + 1
If LngTotal > 8 Then Exit Sub
For Lng = LngTotal To 2 Step -1

Es gibt auch einige Übergang Benteler I zu Benteler I, die bis zu 2 Sek Zeitabstand haben. Ich gehe davon aus, dass diese zweier nicht Aussage-relevant sind. Man könnte die zweiten in der Quelle löschen.
https://www.herber.de/bbs/user/142418.xlsm
Zum Thema Coding-Verstsändnis: ja, es ist leider der Punkt, der Dir das Leben schwer machen wird. Aber mit der Basis, die hier vorliegt, kommst Du schon ziemlich weit.
Man kann sich in der Programmierung Schritt für Schritt einarbeiten, in dem einfache Task unter Marko Recorder aufgenommen werden und dann den Code lesen. Die Anfangsschwierigkeiten -die gibt es überall- verschwinden schnell.
Viel Erfolg
Yal

Beliebteste Forumthreads (12 Monate)

Pivot Filter mit UND-Verknüpfung/ VBA?

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot Filter mit UND-Verknüpfung/ VBA?

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

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread