Sorteren en samenvoegen

[Timmy]

Hallo experts
:thumb:
Ik heb een tabel gesorteerd en ik heb namen die meermaals voorkomen,

hoe kan ik deze automatisch laten verwijderen of direct sorteren zodat er van elke naam maar één keer voorkomt

gegroet

Timmy

 

[Guus2005]

Als je een tabel sorteert wil dat dan zeggen dat je een database hebt? Ik ga er maar even uit van wel.

De query om alle dubbele records eruit te filteren ligt in het keyword distinct:

select distinct veldnaam from tabelnaam where veldnaam = waarde.

Weest gegroet,
Guus

 

[Timmy]

even beter formuleren

Ik werk met een kolom met namen

die nadien in een keuze lijst komen

Private Sub UserForm_Initialize()

With ComboBox1
.AddItem Range("B5")
.AddItem Range("B6")
.AddItem Range("B7")
.AddItem Range("B8")
.AddItem Range("B9")


End With




End Sub

Kan ik en misschien een bereik in voegen dat ik niet steeds moet bij typen, vb zoiets als addistems range("B5:"B9") en de waar de waarden er maar één maal mogen in voorkomen

 

[Guus2005]

Je kan voordat je er één toevoegd de bestaande lijst controleren of deze waarde reeds bestaat.

Private Sub Form_Initialize()
    
    With Combobox1
        If Not ItemExist("B5") Then .AddItem "B5"
        If Not ItemExist("B5") Then .AddItem "B5"
        If Not ItemExist("B6") Then .AddItem "B6"
        If Not ItemExist("B6") Then .AddItem "B6"
        If Not ItemExist("B7") Then .AddItem "B7"
        If Not ItemExist("B8") Then .AddItem "B8"
    End With

End Sub
Private Function ItemExist(strItem As String) As Boolean

    Dim intX As Integer
    
    For intX = 0 To Me.Combobox1.ListCount - 1
        If strItem = Me.Combobox1.List(intX) Then
            ItemExist = True
            Exit Function
        End If
    Next intX

    ItemExist = False

End Function

Ik heb de range notatie verwijderd. Die moet je even toevoegen.

Weest gegroet,
Guus