Valideren in excel

[danny147]

Beste,

Is het mogelijk een validatielijst aan te maken in Excel
waarvan de lijst alfabetisch is geselecteerd ?

Groetjes Danny. :thumb:

 

[sylvester-ponte]

hallo Danny

je kan toch de lijst selcteren en dan sorteren

of mis ik iets?

groet sylvester

 

[danny147]

Beste sylvester-ponte

Het is voor een collega van mij die dit vraagt.
Dit antwoord van jou had ik hem ook aan geraden.
Maar blijkbaar kan dit niet in zijn bestand.

Groetjes Danny. :thumb:

 

[JeanPaul28]

Ja dat kan graag een voorbeeld van het bestand

JP

 

[danny147]

Beste JeanPaul28

Dat bestandje heb ik niet, maar heb er eentje als voorbeeld aangemaakt.

Groetjes Danny :thumb:

 

[JeanPaul28]

Hier de oplossing

 

[WHER]

Het bestand van JeanPaul28,met een alternateve aanpak (UDF) toegevoegd.

 

[HSV]

Vergewis je er van dat cel A10 leeg is.
Run de code 'hsv', en zie A10.

Sub hsv()
 Dim cl As Variant, sq As Variant
   For Each cl In Sheets(1).Columns(7).SpecialCells(2)
     cl.Name = cl
   Next cl

For Each cl In Application.Names
  sq = sq & "," & cl.Name
[COLOR="#FF8C00"] cl.delete
[/COLOR]Next

With Range("A10").Validation
 .Delete
 .Add xlValidateList, , , sq
End With
End Sub

 

[Warme bakkertje]

Eentje zonder gedefiniëerde namen.

Sub Sorteren()
Dim sq, sq2, i As Integer
Dim lLoop As Integer, lLoop2 As Integer
Dim str1 As String, str2 As String
sq = Sheets(1).Columns(7).SpecialCells(2)
For lLoop = 1 To UBound(sq)
    For lLoop2 = lLoop To UBound(sq)
        If UCase(sq(lLoop2, 1)) < UCase(sq(lLoop, 1)) Then
            str1 = sq(lLoop, 1)
            str2 = sq(lLoop2, 1)
            sq(lLoop, 1) = str2
            sq(lLoop2, 1) = str1
        End If
    Next lLoop2
Next lLoop
For i = 1 To UBound(sq)
    sq2 = sq2 & "," & sq(i, 1)
Next
With Range("A10").Validation
    .Delete
    .Add xlValidateList, , , sq2
End With
End Sub

 

[sylvester-ponte]

of zo iets in een change_event plakken

Range("Benodigheden").Sort Key1:=Range("Benodigheden")(1, 1)

groet sylvester

 

[danny147]

Beste,

Mijn collega en ik zijn er eindelijk eruit geraakt met jullie suggesties.

De code van HSV kan ons bekoren.

Aan iedereen bedankt voor het meedenken.

Groetjes Danny. :thumb: