Wanneer de waarde verhoogd, moet de cel met de tekst ook verhogen

[Dimi91]

Hallo,

Ik denk dat de titel al genoeg doet vermoeden. Wij hebben een quiz georganiseerd en het bijhouden in excel had naar mijn mening veel efficiënter moeten gebeuren.
Ik heb in bijlage een voorbeeldje toegevoegd. Het is de bedoeling dat wanneer de waarde in kolom B verhoogd of verlaagd dat deze automatisch naar omhoog of omlaag gaat + de tekst van de deelnemers in kolom A moet ook meegaan naar de gewenste positie.

Alvast bedankt !

DimiBekijk bijlage Voorbeeld.xlsx

 

[edmoor]

Plak dit eens achter Blad1:

Private Sub Worksheet_Change(ByVal Target As Range)
    With ActiveWorkbook.Worksheets("Blad1")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("B5:B8"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    End With
    
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A5:E8")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Timshel]

Ik denk dat de titel al genoeg doet vermoeden

Dat spelling niet je sterke punt is?

 

[Cobbe]

Is deze goed genoeg?

 

[Dimi91]

@timshel

Hoe heb je het gedaan?

Thx

 

[gast0660]

Hoi,
Deze code is genoeg, plak die onder onder blad 1
Gebruik geen samengevoegde cellen (vba en samengevoegde cellen zijn geen vriendjes)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B5").CurrentRegion.Sort key1:=Range("B5"), order1:=xlDescending, Header:=xlGuess
End Sub

 

[Timshel]

@Dimi91. Met ALT-F11 open je de VB-editor waarmee je excel kunt programmeren.

 

[Dimi91]

En ik maar een geschikte formule zoeken :O