Automatisch sorteren Excel

[Steffan1]

Hallo allemaal,

Ik weet dat over dit onderwerp al veel vragen gesteld zijn, want heb ze allemaal gelezen en veel aan gehad, maar zit nu nog met 1 vraag.
Ik heb de volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Zodra u de laatste kolom heeft ingevoerd, dan wordt de lijst
'gesorteerd en gaat de cursor naar de volgende lege cel in kolom A.
If Intersect(Target, Range("B4:B50")) Is Nothing Then Exit Sub
Columns("B:E").Select
Selection.Sort _
Key1:=Range("B4"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

Mijn bedoeling is dat die het bereik van B4 t/m E50 automatisch sorteert. Nu sorteert hij de kolommen B t/m E. Ik heb verschillende dingen geprobeerd te wijzigen in de code, ook bij

Colums("B4:E50").Select

maar dan geeft hij een foutmelding. Daarna heb ik in een boek van VBA het probleem op proberen te lossen, maar dat lukt mij ook niet.

Zou iemand mij hiermee kunnen helpen?

Alvast bedank!

Groet,
Steffan

 

[ExcelAmateur]

Steffan1,

Probeer het is met deze code. (stukje aangepast.)

Private Sub Worksheet_Change(ByVal Target As Range)
'Zodra u de laatste kolom heeft ingevoerd, dan wordt de lijst
'gesorteerd en gaat de cursor naar de volgende lege cel in kolom A.
If Intersect(Target, Range("B4:B50")) Is Nothing Then Exit Sub
Range("B4:E50").Sort _
Key1:=Range("B4"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

 

[Steffan1]

Het werkt! Super, dankjewel voor je snelle reactie!!

 

[ExcelAmateur]

Heb je ook gezien wat ik heb aangepast?

 

[Steffan1]

Ja, ik snap het niet helemaal maar in het stukje van jou staat de range B4:E50 gesorteerd moet worden. En bij mij stond dat die eerst de kolommen moest selecteren en dan pas sorteren. Klopt dit?

 

[ExcelAmateur]

Bij jou stond er Columns("B:E"), dus de kolommen sorteren.
Jij wil het bereik B4 tot E50 sorteren.
Dus moet je Range gebruiken Range("B4:E50")

 

[Steffan1]

Is nu duidelijk. Nogmaals bedankt