klassement automatisch sorteren

[wxppf]

graag had ik volgend klassement laten sorteren als ik het puntenklassement verander.
Zonder hoeven op een knop te klikken.

dus, eens een waarde veranderd, direct sorteren

 

[CorVerm]

Plak deze code onder Blad1. Dat doe je zo: rechtsklik op de tab van het blad en kies voor programmacode weergeven. Deze code "bestrijkt" het gebied van jouw voorbeeld, de code aanpassen is niet zo moeilijk als je even kjkt naar de Ranges.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
      If Not Intersect(Target, Range("A4:B50")) Is Nothing Then
          Range("A4:B22").Sort Key1:=Range("B22"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
        Application.EnableEvents = True
   End Sub

 

[wxppf]

super!! dit werkt 100%


Bedankt

Opgelost

 

[Wigi]

Aet de vraag dan nog op opgelost aub.