Automatisch sorteren

[SiCe]

Ik heb in een excel bestand de volgende code staan waardoor het werkblad automatisch wordt gesorteerd als in kolom B een waarde wijzigd of wordt ingevuld. De kolommen A t/m N worden dan gesorteerd.

Private Sub Worksheet_Change _
(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Range("A8", Range("A8").End(xlDown) _
.End(xlToRight)).Name = "Data"
Set doel = Application. _
Intersect(Target, Range("data"))
If doel Is Nothing Then
Exit Sub
Else
Range("Data").Sort Key1:=Range("B8") _
, Order1:=xlAscending, Header:=xlGuess
End If
Application.ScreenUpdating = True
End Sub

Nu wil ik dat het werkblad pas wordt gesorteerd, op de gegevens in kolom B, als ik in kolom F een waarde wijzig of invul.
Wie weet hoe ik dit voor elkaar krijg?

 

[LucHeyndrickx]

Hoi,

Na de sub zet je dit:

If Not Intersect(Target, Range("$F:$F")) Is Nothing Then
'Uw code
End If

Luc