Avatar billede denero Juniormester
01. juli 2009 - 12:04 Der er 2 kommentarer og
1 løsning

Avanceret Filter - datosortering

Sub AvanceretFilter()
'
    Range("A1:C90000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("F1:K2"), CopyToRange:=Range("A100000:C100000"), Unique:=False

End Sub

Med denne kode i VBA fungerer filtret fint, men hvis dataene i kolonne A indeholder datoer, vil den ikke vise de filtrede data.

Hvad gør jeg forkert - har forsøgt med et andet filter (også spurgt på eksperten.... desværre intet svar)?
Avatar billede excelent Ekspert
01. juli 2009 - 19:46 #1
Send en eks. fil, så kikker jeg på det.
Avatar billede denero Juniormester
03. juli 2009 - 08:41 #2
Tak for hjælpen. Jeg ligger lige koden ud, så andre kan have glæde af den.

Sub aFilter()
Dim krit1 As String
Dim krit2 As String
krit1 = Range("F3") & Format(Range("F2").Value, "mm/dd/yyyy")
krit2 = Range("G3") & Format(Range("G2").Value, "mm/dd/yyyy")
[A1].AutoFilter Field:=1, Criteria1:=krit1, Operator:=xlAnd, Criteria2:=krit2
End Sub

Ligger du et svar, Excelent?
Avatar billede excelent Ekspert
03. juli 2009 - 15:44 #3
ok velbekom
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester