Autofilter kan ikke adskille "1" fra "10"

Har også prøvet med format - men også her kommer alle linierne frem:

.Range("A:ad").AutoFilter Field:=8, Criteria1:=Array("*" & Format(month, "0") & "*", "="), Operator:=xlFilterValues

Jeg er blevet nød til at ændre mine data, og så bruge en lidt ændret kode....

10.
1.3.7.10.
3.7.10.

If Months = "Januar" Then month = "1."
.Range("A:ad").AutoFilter Field:=8, Criteria1:=Array("*" & month & "*", "="), Operator:=xlFilterValues
end with

...men ville helst have den anden løsning, så lader lige tråden være åben lidt endnu...

Nej.... virker faktisk heller ikke, for februar og december kan godt drille noget...

f.eks:

2.5.8.11.
1.3.4.6.7.9.10.12.
2.5.8.11.


så kommer alle 3 linier ved "2."

Jeg indsatte en falsk kolonne, og fik dermed filtreret korrekt.

I kolonne AE skrev jeg følgende funktion:

=HVIS(H3="";"(1)(2)(3)(4)(5)(6)(7)(8)(9)(10)(11)(12)";HVIS(H3="Pause";"";HVIS(H3="Lige måned";"(2)(4)(6)(8)(10)(12)";HVIS(H3="Ulige måned";"(1)(3)(5)(7)(9)(11)";SAMMENKÆDNING("(";UDSKIFT(H3;"-";")(");")")))))

...hvilket gør, at både blanke celler, celler med tekst, og celler med tal bliver konverteret til enslydende værdier (specielt delen med UDSKIFT)

Så ser ovenstående kolonner sådan ud: (efter en mindre søg/erstat!)

(2)(5)(8)(11)
(1)(3)(4)(6)(7)(9)(10)(12)
(2)(5)(8)(11)

...og i VBA skrev jeg følgende kode:

If Months = "Januar" Then month = 1
If Months = "Februar" Then month = 2
'etc
.Range("A:ae").AutoFilter Field:=31, Criteria1:=Array("*(" & month & ")*"), Operator:=xlFilterValues
end with

Tusind tak for Jeres tid :)