Filteren op datums

Status
Niet open voor verdere reacties.

KrisVanIsveldt

Gebruiker
Lid geworden
28 feb 2005
Berichten
26
Hallo

Ik heb een kolom vol datums. Daarop zou ik graag filteren via een VBA-code.
De kolom met datums is kolom H, vanaf rij 5.
Ter info: In de cel F1 heb ik de datum van vandaag staan via de formulle =vandaag()

Alle datums die voorkomen hebben via de celeigenschappen een datumnotatie gekregen. Vandaag is dus 19-nov-07

Oftewel kijkt hij naar "F1" om te kijken wat zijn filtercriteria is;
oftewel neemt hij de systeemdatum.

Het is dus de bedoeling dat VBA telkens op de datum van vandaag filtert.
Kent iemand de code?

Momenteel heb ik het volgende, maar dat heeft geen resultaat

Code:
Range("H5:H65536").Select
Selection.AutoFilter Field:=8, Criteria1:=Range("F1").Value
 
Hallo Wigi

Probleem zelf reeds opgelost. 't Was mijn bedoeling te filteren op de huidige dag (systeemdatum)
Bij het filteren van datums zet Excel deze om naar tekst.
Het enige wat ik dus moest doen was de systeemdatum als tekst zetten in één of andere (verborgen) cel.

Naar die cel heb ik dan verwezen en klaar is kees!
(Zie hieronder in code)

Let wel!: als je datums gebruikt moeten zij staan in deze vorm, dd/mm/jjjj, allemaal. Voor vandaag wilt dat dus zeggen 21/11/2007. Ik had als opmaak staan 21-nov-07 maar dat wilt Excel niet aannemen omdat Excel niet met een opmaak rekening houdt, maar met de inhoud van een cel.
Dus: zowel uw lijst als uw criteria moet staan onder de vorm dd/mm/jjjj.

Toch hartelijk bedankt voor uw reactie.:thumb:

Kris

Code:
Private Sub cbnVandaag_Click()

'Zet de systeemdatum in cel N1, en dit als tekst (string)
Range("N1").FormulaR1C1 = CStr(Date)
    

'Zet alle autofilters op 'alles weergeven' van kolom A tot H (vanaf rij 5)
Range("A5:A65536").AutoFilter Field:=1
Range("B5:B65536").AutoFilter Field:=2
Range("C5:C65536").AutoFilter Field:=3
Range("D5:D65536").AutoFilter Field:=4
Range("E5:E65536").AutoFilter Field:=5
Range("F5:F65536").AutoFilter Field:=6
Range("G5:G65536").AutoFilter Field:=7
Range("H5:H65536").AutoFilter Field:=8

'Filter kolom A op criterium '1' (één)
Range("A5:A65536").Select
Selection.AutoFilter Field:=1, Criteria1:="1"

'Filter kolom H op criterium = systeemdatum = inhoud cel N1, selecteer daarna cel A4
Range("H5:H65536").AutoFilter Field:=8, Criteria1:=Range("N1").Value
Range("a4").Select

End Sub
 
Laatst bewerkt:
Filteren op datum (jaartal)

In het verlengde van de vraag hierboven: Hoe kan je filteren op jaartal? (dag en maand zijn dus variabel)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan