Lijst (tekst) maken waarvan de volgorde afhangt van uitkomst berekeningen.

[S6i6X]

Ik heb een documentje gemaakt die per item een index berekend. Ik wil er een lijst bij hebben die de items op volgorde zet (of liever het hele schema zelf); degene met de hoogste index boven en degene met de laagste beneden (eigenlijk wil ik ook dat bij gelijke indexen degene met het hoogste inkomen hoger geplaatst wordt).

Is dit mogelijk en hoe? Ik weet niet waar ik het moet zoeken, dus als ik een zetje in de goede richting krijg ben ik ook al blij.

Document is bijgevoegd

 

[Warme bakkertje]

Selecteer F14 tot A3 en klik in de standaard werkbalk op ZA met pijltje naar beneden

Mvg

Rudi

 

[S6i6X]

Dit is niet echt wat ik wil

Ik heb het nu wel goed gesorteerd gekregen, maar ik wil dat dit automatisch gebeurt als ik de prijs van een gebouw aanpas. Dynamisch dus.

Maar wel erg bedankt voor je aandacht!

 

[Warme bakkertje]

Bij mij wel


Edit: Dan zal je je toevliucht moeten nemen tot VBA waarbij je een sortering instelt die gestart wordt bij wijziging in kolom D (WorkSheet_Change)
Mvg

Rudi

 

[S6i6X]

???

Waar vind ik informatie daarover? Op welke woorden kan ik gaan zoeken in de help functie of op google?

 

[Warme bakkertje]

Plaats onderstaande code achter Blad1
Rechtsklikken op bladtab en Programmacode weergeven selecteren

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [D3:D14]) Is Nothing Then
        [A3:F14].Sort Key1:=Range("F14"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End If
Application.ScreenUpdating = True
End Sub

Wanneer je nu een wijziging van de prijs doorvoert wordt de sortering automatisch aangepast

Mvg

Rudi

 

[S6i6X]

Superrrrrrrrr!!!

Hartelijk dank voor de moeite, ik heb weer wat geleerd!!!

 

[Warme bakkertje]

Kleine wijziging

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [D3:D14]) Is Nothing Then
        [[COLOR="Red"]F14:A3[/COLOR]].Sort Key1:=Range("F14"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End If
Application.ScreenUpdating = True
End Sub

Mvg

Rudi

 

[S6i6X]

Maakt dat wat uit?

Maakt dat wat uit?

Nogmaals bedankt!