sorteren Werkt niet naar behoren. (met macro)

[johnny1963]

Heb de volgende code

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E42")) Is Nothing Then Exit Sub
Range("A3:I42").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("E3").Select
End Sub

Maar als ik bij cel E3 een waarde invul sorteerd hij NIET, wel als ik in cel E4 een waarde invul wie weet hier raad mee ???

 

[tilpi]

Verander
Header:=xlGuess,
in

Header:=xlNo,

Mvg

Piet

 

[johnny1963]

Bedankt werkt perfect nu

 

[johnny1963]

:thumb:

Bedankt werkt perfect nu