VBA ListObject mit AutoFilter in Array
02.06.2017 18:50:44
Christian
leider komme ich mit einer Pivottabelle nicht zum gewünschten Ergebnis, daher der Versuch über VBA....
Es gibt zwei Sheets, wovon das eine die Daten hält (Sheet1) und in dem Anderen die Daten aufbereitet ausgegeben werden sollen (Sheet2).
Sheet1 enthält eine Liste namens "Auftragsabarbeitung" mit den folgenden Spalten mit _ fiktiven Werten zur Veransachaulichung:
Datum, Auftrag, Stunden, Anlage, iO, niO
30.05.2017, jkf, 8:23, d, 13034, 18
31.05.2017, abc, 3:20, a, 1030, 2
31.05.2017, grf, 0:10, c, 84, 5
31.05.2017, ret, 1:57, b, 2053, 3
31.05.2017, jkf, 8:23, d, 13034, 18
31.05.2017, abc, 2:20, g, 770, 1
31.05.2017, ret, 7:48, b, 13039, 31
01.06.2017, abc, 7:48, a, 13039, 3
01.06.2017, ret, 7:48, b, 13039, 1
01.06.2017, abc, 5:02, a, 8785, 0
01.06.2017, ret, 7:48, b, 13039, 6
02.06.2017, abc, 8:37, a, 16547, 5
Die Anlagen melden selbst Ihre Produktionszeit in diese Liste, wodurch die Liste bis zum Neuanlegen immer länger wird.
Sheet2 soll die Auswertung anhand eines in Zelle B2 eingetragenen Datums aus Sheet1 mit Klick auf den AktualisierenButton erstellen. Hier mus keine Liste erstellt werden, es reicht ein ganz normaler Bereich.
Dabei ist folgende Form gewünscht:
Datum: 31.05.2017 [AktualisierenButton]
Anlage, Auftrag, Stunden, iO, niO
a abc, 3:20, 1030, 2
b ret, 1:57, 2053, 3
ret, 2:20, 770, 1
ret, 7:48, 13039, 31
c grf, 0:10, 84, 5
d jkf, 8:23, 13034, 18
Mein Ansatz war nun, zu erst das ListObject in Sheet1 mit dem Datum in Sheet2.Range("B2").Value zu filtern, was auch soweit klappt.
Sheets(1).ListObjects("Auftragsabarbeitung").Range.AutoFilter Field:=1, _
Criteria1:=Format(Sheets(2).Range("B2").Value, "dd.mm.yyyy"), Operator:=xlAnd
Aus dem gefilterten ListObject wollte ich nun die Anlagen in ein Array kopieren. Dabei wird mir aber leider der gesamte Inhalt der Spalte Anlage im ListObjects in das Array kopiert und nicht nur der gefilterte Bereich.
Dim userArr As Variant
userArr = Sheets(1).Range("Auftragsabarbeitung[Anlage]").Value
An dieser Stelle scheitere ich Leider.
Gefiltert werden mir 56 Zeilen angezeigt, im Array befinden sich am Ende 800+.
Als nächstes wollte ich dann alle doppelten Werte im Array entfernen.
Dann das Array durchlaufen und zu jedem Eintrag die entsprechenden Zeilen aus dem nach Datum gefilterten ListObject aus Sheet1 an das Ende von Sheet2 anfügen.
Ist kein Eintrag mehr zum Array Element in der Liste vorhanden, wird eine Leerzeile eingefügt.
Vielleicht geht mein Vorhaben ja auch irgendwie einfacher umzusetzen.
Danke schon mal für jede Art von Unterstützung und Tipps ;-)
Gruß Chris