worksheet_selectionchange

[fbockstael]

Ik probeer een "macro" uit te laten voeren door worksheet_selectionchange aan te passen met volgende code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$5" Then
    Application.EnableEvents = False
        If Target.Value >= 0 Then
            Range("K11:P17").Select
            Selection.Sort Key1:=Range("L12"), Order1:=xlDescending, Key2:=Range( _
            "K12"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
            :=False, Orientation:=xlTopToBottom
            Range("A3").Select
        End If
    Application.EnableEvents = False
    End If
End Sub

Ik wil dus als een cel (liever nog een range van cellen) verandert een sortering laten doen van een aantal andere cellen.
Maar er gebeurt dus helemaal niets, overigens ook geen foutmelding.
Weet iemand hoe ik dit kan laten werken?
Alvast bedankt,

Franklin

 

[Wigi]

Doe eerst dit aub.

 

[Wigi]

Heb je de code achter het juiste blad gezet?

Je moet wel op B5 gaan staan. Evt. eerst op een andere cel en dan terug naar B5.

 

[Wigi]

Verbeterde code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("jouwbereik")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Value >= 0 Then Range("K11:P17").Sort Key1:=Range("L12"), Order1:=xlDescending, Key2:=Range("K12"), _
            Order2:=xlAscending, Header:=xlGuess
        Application.EnableEvents = True
    End If
End Sub

pas "jouwbereik" nog aan.

Wigi

 

[fbockstael]

Dank voor je snelle antwoord.
Maar ook deze code doet niets met mijn tabelltje in K1117.
Heb je nog suggestie voor me misschien?
Kan pas maandag weer kijken hier dus doe rustig aan

 

[Wigi]

Post je file eens, dit moet echt wel werken hoor.

Ofwel staat de code ergens verkeerd, ofwel zijn je bereiken verkeerd, ofwel heeft Target een negatief getal, ofwel selecteer je niet goed.

Wigi

 

[Wigi]

Voer eerst eens dit uit

Sub ee()
Application.EnableEvents = True
End Sub

 

[fbockstael]

He, he, het werkt.
Hoe moeilijk kan het zijn he.
Nog even naar je overpeinzingen gekeken. Het breik was idd niet goed, maar dan met name de kolomkoppen waarop gesorteerd wodt.
Deze staan in resp. L11 en K11 en niet in L12 en K12.
Nu werkt het dus.
Heel hartelijk dank voor je geduld en moeite.

Franklin

 

[Wigi]

Zet de vraag maar op opgelost aub.