Automatisch op datum sorteren

[ExcelNoob]

Beste Mensen,

Ik zou graag het volgende willen mbv een macro: Als er in Kolom E een datum wordt ingevuld, dat de macro de hele rij automatisch sorteerd op datum. Ik heb nu de volgende macro maar die werkt niet:

Sub sorteren()
'
' sorteren Macro
'

'
    Range("A1:R4999").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Wie kan me helpen....help al gezocht op het forum, maar kom er niet echt uit.

Mvg,

ExcelNoob

 

[snabbi]

Hoi ExcelNoob,

Je code is goed, alleen hij sorteert niet automatisch na het invullen van een nieuwe datum. Als je in de visual basic editor (te openen via ALT F11) klikt op het werkblad dat je wilt aanpassen na het invoeren van een datum (dus bijvoorbeeld Blad1), dan moet je daar de volgende code neerzetten:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
    Range("A1:R4999").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End If
End Sub

De eerste regel zorgt hiervoor dat de macro wordt aangeroepen bij elke verandering op je werkblad. De tweede regel zorgt ervoor dat er alleen iets wordt gedaan wanneer er iets verandert in de 5e kolom (de e kolom). Wat er dan gebeurd is die code voor het sorteren zoals je het al had.

 

[ExcelNoob]

Superbedankt! Het werkt!