• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Keuzelijst sorteren

Status
Niet open voor verdere reacties.
T

tommylammerink

Gebruiker
Lid geworden
24 jul 2009
Berichten
15
In bijgevoegd voorbeeld heb ik in cel C3 ingesteld dat mbv gegevensvalidatie meerdere keuzes gemaakt kunnen worden.
Nu wil ik het volgende nog toevoegen:
1. Automatisch sorteren op nummer
2. Na elke invoer een ctrl enter (zodat de gemaakte keuzes onder elkaar komen te staan)

Kan iemand dit aanpassen in de vba code?

PS de nu gebruikte vba code is ook een aan-elkaar-geplakt zootje, maar het werkt zo :d
 

Bijlagen

  • Voorbeeld keuze selectie.xlsm
    19,4 KB · Weergaven: 48
En nu maar hopen dat je niet op een mac werkt.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sOld As String, sNew As String
    Dim Br
    Dim i As Long
    
    If Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    sNew = Target.Value
    Application.Undo
    sOld = Target.Value
    If sOld = "" Then
        Target.Value = sNew
    Else
        Br = Split(sOld, "," & vbLf)
        With CreateObject("System.Collections.Arraylist")
            If IsError(Application.Match(sNew, Br, 0)) Then
                .Add sNew
            Else
                Br = Filter(Br, sNew, False)
            End If
            For i = 0 To UBound(Br)
                .Add Br(i) & ""
            Next
            .Sort
            Target.Value = Join(.ToArray, "," & vbLf)
        End With
    End If
    Application.EnableEvents = True
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan