Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Filter

Betrifft: VBA Filter von: WalterK
Geschrieben am: 01.11.2014 09:54:02

Hallo,

das folgende Makro sollte sollte so filtern, dass nur die Datümer bis zu einem bestimmten Datum stehen bleiben. Es werden aber alle Daten weg gefiltert. Wo liegt der Fehler?

Option Explicit
Sub TermineDrucken()

Dim wksTerLis As Worksheet
Dim LzA As Long
Dim BisDatum As Long
Set wksTerLis = Worksheets("TerminListe")

BisDatum = Evaluate("=DATE(YEAR(TODAY()),MONTH(TODAY())+3,0)") 'Datum Monatsende, von heute an 2 volle Monate

LzA = Application.Max(6, wksTerLis.Cells(Rows.Count, 1).End(xlUp).Row)

Application.ScreenUpdating = False
wksTerLis.Rows("5:5").Select
Selection.AutoFilter
wksTerLis.Range("$A$5:$F$" & LzA).AutoFilter Field:=2, Criteria1:= _
"<=" & BisDatum & ", Operator:=xlAnd"

End Sub


Beispieldatei:
https://www.herber.de/bbs/user/93484.xlsm

Besten Dank für die Hilfe und Servus, Walter

  

Betrifft: AW: VBA Filter von: Hajo_Zi
Geschrieben am: 01.11.2014 10:00:47

    wksTerLis.Range("$A$5:$F$" & LzA).AutoFilter Field:=2, Criteria1:= _
        "<=" & BisDatum & ""
GrußformelHomepage


  

Betrifft: Uuuups. Danke Hajo! Walter von: WalterK
Geschrieben am: 01.11.2014 10:05:05




 

Beiträge aus den Excel-Beispielen zum Thema "VBA Filter"