Filter op getal (b.v. maand)

[oeldere]

vandaag stond deze vraag op het fourm (zie onderstaande link)

http://www.helpmij.nl/forum/showthread.php/638531-Zoeken-op-letter-in-kollom

Ik zou voor mijn casus graag op kolom B (het getal) filteren.

Ik had gedacht dit op te lossen met aanpassen naar onderstaande code.

deze werkt m.i. niet.

hoe dient de code in dat geval wel te worden?

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$1" And Target <> "" Then
   Range("b1:b100").AutoFilter Field:=1, Criteria1:=Range("C1").Value & "*"
  Else: ActiveSheet.AutoFilterMode = False
 End If
End Sub

 

[HSV]

Hallo Oeldere,

Haal het '&' teken en het sterretje weg aan het einde.

Range("b1:b100").AutoFilter Field:=1, Criteria1:=Range("C1").Value [COLOR="red"]& "*"[/COLOR]

 

[oeldere]

Bedankt Harry,

met jouw aanpassen (en uiteraard de aanpassing van de kolom) werkt het als een trein.