Excel-VBA-autofilter deaktivieren/ausschließen von items

kurze Frage, wie kann ich das ausschließen eines Elements in einer Liste über VBA. Arbeiten auf einem Blatt, das automatisch druckt eine Liste ohne ein bestimmtes Datum.

   Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=3, Criteria1:="Hans"
    ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=7, Criteria1:="open"
    ActiveSheet.Range("$A$3:$H$1000").AutoFilter Field:=6, Criteria1:="<>1/0/1900", Operator:=xlFilterValues
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
     IgnorePrintAreas:=False
         Rows("3:3").Select
    Selection.AutoFilter

Problem ist, dass die Kriterien nicht mit dem Datum 0-1-1900, um es zu filtern aus. Was mache ich falsch?

  • Versuchen Sie es mit der Makro-Recorder und model code in der Recorder ' s code.
  • Sie können nicht verwenden Sie Operatoren, um die Kriterien festlegen, ist der einzige Weg, um eine Liste der Optionen, die Sie einschließen möchten, finden Sie unter blog.contextures.com/archives/2010/12/15/...
  • ist diese information korrekt? Vielleicht für strings, sondern für zahlen, wenn ich mithilfe von Operatoren Kriterien Sie arbeiten w/o jeder problem.
InformationsquelleAutor Thijsk | 2015-06-26
  1. 1

    0-1-1900 ist ein Datum, das nicht existiert. Das könnte das problem sein.

    Verwenden Sie einfach 

    Criteria1:=">1/1/1900"

    und es sollte die Wort fein.

    • Feste mein problem, vielen Dank! Eine Frage und zwar, würde ich gerne ausschließen das Datum 1-1-1900, dann ist mein code sein sollte {criteria1:="< "> "1/1/1900"} ?
    • Sie können auch Criteria1:="<>0" wo 0-1-1900 ist tatsächlich das Datum-format von 0
    • ja, {criteria1:="< "> "1/1/1900"} arbeiten würde.
    InformationsquelleAutor Musisold
Schreibe einen Kommentar