Autofilter Kriterien vorgeben

Patrick Kidd · 2016-04-27T21:00:56+00:00

Hallo, bei folgender Problemstellung komme ich gerade nicht weiter und wollte mal nach Hilfe oder einem workaround fragen: Ich habe in einer Spalte Datumswerte, aber auch leere Felder bzw. Felder mit fehlerhaften Werten. Über ein Userformular steuere ich den Datumsfilter dahingehend, dass immer die Datensätze im relevanten Zeitraum, bspw. heute + 90 Tage angezeigt werden. Funktioniert alles. Der Nutzer soll aber auch die Datensätze sehen, die kein gültiges Datum enthalten, da bei diesen nicht klar ist, ob sie angezeigt werden sollen oder nicht. Entsprechend alle Datensätze im Betrachtungszeitraum und alle fehlerhaften Datensätze. Ich habe alle fehlerhaften Datensätze in ein Array geladen und gebe das als Filterkriterium mit. Funktioniert. Das zu verknüpfen gelingt mir aber nicht. Im Makrorekroder sehe ich folgendes: ActiveSheet.Range("$C$1:$C$1315").AutoFilter Field:=1, Criteria1:=Array( _ "blödsinn93", "blödsinn94", "blödsinn96", "blödsinn98", "blödsinn99"), Operator:= _ xlFilterValues, Criteria2:=Array(0, "11/29/2093", 1, "3/13/2091", 1, "5/14/2091", 1, "1/30/2094") Den ersten Teil erschlage ich über mein array. Beim Datumsteil verwendet Excel jetzt auch ein Array. Das mit dem Datum in der amerikanischen Form ist klar, aber was bedeutet die führende Null, bzw. die Eins? Ich habe versucht das Array eindimensional nachzubauen. Im debug sieht das auch genauso aus, also arrayDat(1) ist dann z.B. 0, "11/29/2093". Beim Übergeben kommt dann aber die Fehlermeldung, dass ich zu viele Argumente übergeben habe. Fragen: 1.) Warum werden die Kriterien eigentlich nicht über XLand oder XLor verknüpft? Warum kommt nach dem Datumsarray kein Operator? 2.) Was haben die führende Null bzw. Eins für eine Bedeutung? 3.) Wie muss ich das Datumsarray aufbauen, damit es funktioniert- vielleicht zweidimensional? 4.) Gibt es einen workaround um in derselben Spalte den Datumsfilter zu verwenden und gleichzeitig alle Datensätze, die kein gültiges Datum enthalten? Tausend Dank im Voraus!

Hallo Patrick,
bei einem kleinen Test kleinen Test könnte ich die Vorschläge von 'Luschi' (Klaa-Praris, FFM?) nicht nachvollziehen.
Anbei meine Liste für den Autofilter:


Kopieren
with cells(1).currentregion
.autofilter 2, "abc" 'Spalte B, Wert abc
.copy sheets(2).cells(1,1) 'alle sichtbaren Zellen MIT Überschrift
.offset(1).copy sheets(2).cells(1,1) 'alle sichtbaren Zellen OHNE Überschrift
.offset(1).entirerow.delete 'Auswahl löschen OHNE Überschrift
.autofilter 'zurücksetzen
end with
.Autofilter Field, Criteria1, Operator, Crietria2
Empty Text
.autofilter 1, "="
NOT Empty Text
.autofilter 1, "<>"
Opersator 2: xlOR
.autofilter 1, "abc", 2, "def" 'Textbeginns "abc*", Enthält NICHT: "<>abc"
Operator 7: xlFilterValues
.autofilter 1, array("abc", "def"), 7
.autofilter 1, [transpose(G1:g5)], 7
Operator 1: xlAnd
Numbers
.autofilter 1, 123
.autofilter 1, "<>123" 'NOT equal; "<123": kleiner
Operator 3: xlTop10items
Operator 4: xlBottom10Items
Operator 5: xlTop10Percent
Operator 6: xlBottom10Percent
Above Average Criteria 33, Operator 11
Below Average Criteria 34, Operator 11
Colors
Operator
8	xlFilterCellColor
9	xlFilterFontColor
12	xlFilterNoFill
13	xlFilterAutomaticFontColor
14	xlFilterNoIcon
10	xlFilterIcon, criterium No für einzelne Icon-Sets
Datum: operator 11
Tag, Criterium
1	xlFiterToday
2	xlFilteryesterday
3	xlFilterTomorrow
Woche
4	xlFilterThisWeek
5	xlFilterLastWeek
6	xlFilterNextWeek
Monat
7	xlFilterThisMonth
8	xlFilterLastMonth
9	xlFilterNextMonth
Quarter
10	xlFilterThisQuarter
11	xlFilterLastQuarter
12	xlFilterNextQuarter
Year
13	xlFilterThisYear
14	xlFilterLastYear
15	xlFilterNextYear
16	xlFilterYearToDate
Specific Month
21	January (xlFilterAllDatesInPeriodJanuary)
22	Feb
23
31	Nov
32	Dez
Zeitraum:
Anfang = DateValue("1.1.2016 09:00")
Ende = DateValue("28.2.2016 15:20")
Range.autofilter, 1, ">" & 1* Anfang, 1, "<" & 1*ende

mfg

Hallo, wenn sich die Lösung in diesen Thread verbirgt, ist sie mir entgangen. Gibt es eine Lösung?

If Year(CDate(ActiveWorkbook.Sheets("daten").Range("q" & z).Value)) = "2016" Then
ReDim Preserve arr2(0 To y)
arr2(y) = "2, " & """" & DatumFormat(ActiveWorkbook.Sheets("daten").Range("q" & z).Value) &  _
y = y + 1
End If

Dieser Schnipsel lädt beispielsweise alle Daten aus 2016 in das Array. Mit arr2(1) hätte ich dann genau die Darstellung 2,"Datum im amerikanischem Format"
Datumformat als Funktion wandelt das Datum ins amerikanische Format um. Entsprechend sieht das Array optisch exakt so aus, wie vom Makrorekorder aufgezeichnet.
Ich verstehe das im Moment so, dass das nicht funktioniert, ist das richtig?
Mit diesem Codeschnipsel lade ich die fehlerhaften Felder aus der Spalte

If Not IsDate(ActiveWorkbook.Sheets("daten").Range("q" & z).Value) Then
ReDim Preserve arr(0 To i)
arr(i) = ActiveWorkbook.Sheets("daten").Range("q" & z).Value
i = i + 1

Die Übergabe ans Array und das Setzen des Autofilters, klappt einwandfrei.

    ActiveWorkbook.Sheets("daten").Range(ActiveWorkbook.Sheets("daten").Cells(15, 7),  _
ActiveWorkbook.Sheets("daten").Cells(lzeile, lspalte)).AutoFilter , _
Field:=11, Criteria1:=Array(arr), Operator:=xlFilterValues

Mein Problem ist halt, dass ich bspw. alle fehlerhaften Daten anzeigen möchte und alle Daten bspw. zwischen heute und heute+90 Tage. Das zu kombinieren geht anscheinend nicht, da ich für die Datumsabfrage schon beide Kriterien verbrauche.

Forumthread: Autofilter Kriterien vorgeben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial