Autofilter Kriterien vorgeben

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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread