Excel + VBA + Filterfunktion = Hilfe!

  • Ich verzweifel hier gerade. Ich habe folgenden Code in VBA (Office 2016):


    Code
    1. ActiveSheet.Range("B1:BX99999").AutoFilter Field:=16, Criteria1:="25.03.2018", Operator:=xlFilterValues


    In Spalte 16 setzt er mir nun auch brav den Filter. Allerdings ist das Filteregebnis gleich leer. Wenn ich jetzt aber von Hand in diesen Filter reingehe und das Suchkriterium nochmals mit Return bestätige so zeigt er mir die gefilterten Daten an. Jetzt frage ich mich .... warum?? Ich habe nichts verändert. Lediglich einmal reingangen und den Filter nochmal bestätigt.


    Ich liebe M$. :thumbdown:

    Bilder

    3 Mal editiert, zuletzt von Sascha_77 ()

  • Excel verwaltet Datum als Integer Wert und deshalb läuft der Filter bei Dir ins leere im VBA Script...
    Das Filterkriterium muss in dem Fall im VBA nicht 25.03.2018 sein sondern 43184 damit sollte es gehen denke ich :D

  • Hey Danke. Werd ich Montag direkt mal testen.

  • Versuche es mal so...
    Wobei mich dein Range Bereich etwas irritiert...


    Code
    1. Sub Datum_Gleich()
    2. Dim Datum As Date
    3. Datum = "25.03.2018"
    4. Worksheets("Sheet1").Range("B1:BX").AutoFilter Field:=16, Criteria1:="<=" & CDbl(Datum), Operator:=xlAnd, Criteria2:=">=" & CDbl(Datum)
    5. End Sub

    iMacPro1,1: Fractal Define R6 - ASUS SAGE X299 - i9 10900X 3,7Ghz - 32 GB - Sapphire RX 5700 XT Pulse 8GB - NVMe SSD 960 EVO 1 TB - BCM943602CS Combo Karte - Sonnet Solo 10G AQC-107 - Titan Ridge TB3 - macOS 11.7 - OpenCore 084

    Proxmox: G5-Casemod - GA Z270-HD3P - i7 7700k 4,2Ghz - 16 GB - iGPU - GT 730 - NVMe SSD 1TB - VM1: Monterey - VM2: Windows 10 - VM3: Mannaro VM4: Unraid

    Mac Mini Studio: 32 GB - 512 GB SSD - CalDigit TS3 Plus Station - Terramaster D2 TB3 Raid

  • So hats jetzt geklappt:


    Code
    1. Date2 = CLng(CDate(Date))
    2. count = excel.Application.CountA(Columns(1))
    3. ActiveSheet.Range("$B$1:$BX$" & count).AutoFilter Field:=16, Criteria1:=">" & (Date2), Operator:=xlFilterValues
  • Community Bot

    Hat das Label Erledigt hinzugefügt