Filter Termine vor heute

Guten Tag,

Könnten Sie mir helfen, korrigieren Sie den code, die ich gefunden und bearbeitet? Es soll in der Spalte filter O und zeigt nur die Termine, die weniger als oder vor dem Datum heute. Beachten Sie, dass die Zelle AC2 zeigt das Datum von heute, aber ich kann nicht spielen sogar der code.

With Sheets(1)
MyVal = Application.WorksheetFunction.WorkDay(Sheets(1).Range("AC2").Value)
Sheets(1).Range("A1:AA1").AutoFilter Field:=15, Criteria1:="<=" & MyVal
  • Haben Sie deklariert die variable myval?
  • "Ich kann nicht spielen sogar der code" ist nicht eine nützliche Beschreibung des Problems. Was ist das spezifische problem mit dem code, den du gepostet hast?
  • Hallo Ken, ich versuche, die filter der Spalte O zeigt, dass die Daten mit Rechnungen vor heute(Datum).
  • Hallo Kory, Nein noch nicht. Obwohl ich erklärte, die variable vor einer Weile, es hat mir nicht erlauben, Sie zu spielen, Sie den code. Jedenfalls habe ich behoben, und spielen kann der code versucht nun, filter, Spalte O, als das, was ich erwähnt habe mit Ken.
InformationsquelleAutor Modudes | 2014-06-20
  1. 8

    Wenn ich das richtig verstehe, das unterhalb sollte den trick tun. Es werden filter und zeigt nur die Termine vor dem aktuellen Datum, wenn der code ausgeführt wird, nach der in Ihrem computer-system Zeit:

    Sub DateFilter()
Sheets(1).Range("A1:AA1").AutoFilter Field:=15, Criteria1:="<" & Date
End Sub

    Wenn Sie möchten, heute aufgenommen werden, ändern Sie "<" zu "<=". "Datum" wird das VBA-verweisen auf das aktuelle Datum. Es verwendet Ihr computer-system Zeit.

    Die Funktion Arbeitstag verwendet wird, um ein Datum, eine bestimmte Anzahl von Arbeitstagen, nachdem ein anderes Datum. Verwenden Sie es wie folgt:

    Arbeitstag(Startdatum, Anzahl der Arbeitstage zu Zählen)

    Also, wenn Sie wollte, um filter für Spalte O basierend auf, sagen wir, etwas vor dem Zeitpunkt von fünf Werktagen nach einem Datum in Zelle AC2, den Sie verwenden könnten:

    Sub Datefilter()
Dim MyVal As Date
MyVal = Application.WorksheetFunction.WorkDay(Range("AC2").Value, 5)
Sheets(1).Range("A1:AA1").AutoFilter Field:=15, Criteria1:="<" & MyVal
End Sub
    • Hi Liza, Jetzt ist der code wurde gespielt, aber es zeigt Fehler auf dieser Linie--- MyVal = Anwendung.WorksheetFunction.Arbeitstag(Range("AC2").Wert, 5)
    • Und ja, du hast Recht. Sie Verstand meine Frage richtig.
    • Ah, ich entschuldige mich, ich verließ die Deklarationsanweisung gibt. Hinzufügen "Dim MyVal Als Datum" vor "MyVal = Anwendung.WorksheetFunction.Arbeitstag(Range("AC2").Wert, 5)."
    • Hey danke Liza! Es funktioniert! 🙂
    InformationsquelleAutor Liza
  2. 1
    Sub Test()

Dim MyVal As Date

MyVal = Range("AC2").Value

ActiveSheet.Range("A:O").AutoFilter 15, ">=" & CDbl(MyVal)

End Sub
    • Bitte formatieren Sie den code und erklären, warum es helfen sollte.
    • +1 Upvote: In nicht-englischen Excel-Versionen ein Vergleich mit einem datetime-Wert nicht funktioniert, aber eine weitere Typumwandlung zu CDbl wird es tun.
    InformationsquelleAutor Chitra Sena Bhuyan
Schreibe einen Kommentar