Tabelle je Kunde 1x letzte aktuelle Bestellung (Datum)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub newBestProKd() Dim objDic As Object, ltzDate As Date, arrKd, arrTmp(), i&, j&, k& Set objDic = CreateObject("Scripting.Dictionary") If Not Tabelle1.ListObjects("Tabelle57").DataBodyRange Is Nothing Then Tabelle1.ListObjects("Tabelle57").DataBodyRange.Delete With Tabelle1.ListObjects("Tabelle5") .Range.AutoFilter Field:=3 .Range.AutoFilter Field:=4 For i = 1 To .DataBodyRange.Rows.Count objDic(.DataBodyRange.Cells(i, 3).Value2) = 0 Next i arrKd = objDic.keys For i = 0 To UBound(arrKd) ltzDate = WorksheetFunction.MaxIfs(.DataBodyRange.Columns(4), .DataBodyRange.Columns(3), arrKd(i)) .Range.AutoFilter Field:=3, Criteria1:=arrKd(i) .Range.AutoFilter Field:=4, Criteria1:="=" & ltzDate, Operator:=xlAnd arrTmp = .DataBodyRange.SpecialCells(xlCellTypeVisible) .Range.AutoFilter Field:=3 .Range.AutoFilter Field:=4 With Tabelle1.ListObjects("Tabelle57") .ListRows.Add With .DataBodyRange For j = 1 To UBound(arrTmp, 1) For k = 1 To UBound(arrTmp, 2) .Cells(j + .Rows.Count - 1, k) = arrTmp(j, k) Next k Next j End With End With Next i End With End Sub

Hallo Luschi,

ja. Gerne :) Hier sind die Ergebnisse.

Alle 3 Methoden führen zu Ergebnissen, aber es gibt gute und schlechte Aspekte.

Test-Datei: 50.110 Datensätze (14 Spalten)
Office-Version: Office 365 Business
Hardware: Intel-Core i7-10510U CPU 2,30 GHz / 16 GB RAM

Lösung mit Formel:
Erstellung Hilfsspalten und Formel einsetzen: ca. 5 min
Ablaufdauer von Formelabfragen: weniger als 1 min.
Kontrollieren von Datensätzen, Entfernung von Dubletten, Erstellung von Finale-Datei: ca. 5-10 min.

Gesamt: ca. 16 min.

Vorteile: Die Formeln sind auch für die Hilfspalte sichtbar und die Korrektheit der Reihenfolge kann vor der Erstellung der Enddatei überprüft werden.
Nachteile: Es sind 4 Arbeitsschritte erforderlich. Wenn nur eine fehlt, ergibt es ein falsches Ergebnis.

Lösung mit VBA:
Es ist sehr gut, mit einem Makro in VBA zu arbeiten, aber nur, wenn die Datenmenge nicht zu groß ist. Es ist also keine gute Lösung für eine Datei mit mehr als 10K Datensätzen!

Erstellung Makro mit VBA und Verbindung mit der Tabelle: 5-10 min
Ablaufdauer: mehr als 15 min danach stürzt ab! :(
Ich habe es auch mit 500 Datensätzen versucht, Ablaufdauer ist ca. 1 min.

Lösung mit PQ-M:
Sehr praktisch und die Prozessüberwachung funktioniert auch bei einer Datei mit 50K Datensätzen ohne Probleme. Deshalb habe ich mich für PQ-M entschieden.

Erstellung der Abfragen in PQ-M: 5 min.
Ablaufdauer: weniger als 1 min.

Vielen Dank euch!

Gruß,
Johann

Hallo Johann,

.... dass die Meldung bei meiner eingestellten bei Dir kommt, nicht aber bei der von Luschi zuerst eingestellten Datei. Diese hatte ich lediglich um meine Lösungsalternative ergänzt und so eingestellt. Ich erkläre es momentan mir so, dass ich meine Lösung in der Version XL 2016 erstellt habe und MS in Deiner aktuelleren XL-Version möglicherweise davor warnen will, warum auch immer.
Kommt bei Dir die gleiche Meldung auch, wenn Du die zweite von Luschi eingestellte Datei aktivierst oder nicht? Denn er hat die Zusammenfassung meiner zwei - nachfolgend hier eingestellten 2 Abfragen - darin belassen und arbeitet mittlerweile mit XL365.

Nun der M-Code meiner zwei interaktiv erstellten Abfragen:
Die erste benannt: neopa_Gruppiert

let

    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle5"]}[Content],

    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Bestellnummer", Int64.Type}, {"Knummer", Int64.Type}, {"Kunde", type text}, {"Bestelldatum", type date}, {"Artikel", type text}}),

    Gruppiert = Table.Group(#"Geänderter Typ", {"Knummer"}, {{"Anzahl", each List.Max([Bestelldatum]), type nullable date}})

in

    Gruppiert

und die zweite benannt: neopa_Ergebnis

let

    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle5"]}[Content],

    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Bestellnummer", Int64.Type}, {"Knummer", Int64.Type}, {"Kunde", type text}, {"Bestelldatum", type date}, {"Artikel", type text}}),

    Zusammengeführt = Table.NestedJoin(#"Geänderter Typ", {"Knummer", "Bestelldatum"}, neopa_Gruppiert, {"Knummer", "Anzahl"}, "Gruppiert", JoinKind.LeftOuter),

    Erweitert = Table.ExpandTableColumn(Zusammengeführt, "Gruppiert", {"Knummer"}, {"Knummer.1"}),

    Gefiltert = Table.SelectRows(Erweitert, each ([Knummer.1] > null)),

    Ergebnis = Table.RemoveColumns(Gefiltert,{"Knummer.1"})

in

    Ergebnis

Würde mich freuen nach Weihnachten hierzu von Dr zu lesen. Wünsche Dir jetzt aber erst einmal ein paar schöne Weihnachtsfeiertage.

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Tabelle je Kunde 1x letzte aktuelle Bestellung (Datum)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle je Kunde 1x letzte aktuelle Bestellung (Datum)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread