Automatisch sorteren in VBA met variabele gegevens.

[Zerty]

Ik ben iets aan het uitzoeken maar na veel zoekwerk nog geen oplossing gevonden.

Wanneer er in kolom B een getal veranderd wordt, dan past de lijst in kolom A zich automatisch aan.
Echte wanneer er een berekening wordt uitgevoerd in kolom B (VB =D1+E1 of = H1) dan loopt het fout.
Is er daar een oplossing voor?

 

[Cobbe]

Is dit de bedoeling?

 

[Zerty]

Inderdaad, het werkt goed, ook met datums. Waarvoor dank.

Echter in mijn project lukt het niet, ik zal wel weer iets over het hoofd zien.

 

[Cobbe]

'=INDIRECT(ADRES(P1;[COLOR="#FF0000"]11[/COLOR]))

Kolom 11 is leeg, als je de datums wil overnemen wordt die 11 --> 18
Dan wel nog de cellen opmaken als datum.

 

[JanBG]

In het bestand dat je hebt bijgevoegd, kan dat met deze code:

Sub Sorteren()
Range("P1:R10").Select
Selection.Copy
Range("P13").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Sort Key1:=Range("P13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Bekijk bijlage Kopie van Automatisch sorteren Recentste datum-2.xlsm

 

[Zerty]

Bedankt voor de tip.
Normaal deed ik dat op deze manier, maar ik zoek een oplossing zonder Knop.
Dus bij elke verandering zou dit automatisch moeten gebeuren, maar een oplossing vind ik niet

 

[JanBG]

Oke, dat had ik niet begrepen..

 

[Zerty]

Zeker geen probleem,
ik heb zojuist uw formule gecombineerd met iets dat ik eerder al had geprobeerd, en het lijkt te lukken.
Nog eens goed uittesten nu.