Hoe kan ik data uit 2 tabellen in 2 comboxen alfabetisch rangschikken?

[Kwabbernoot1980]

In bijlage vinden jullie een bestand met 2 comboboxen waarvan de data uit 2 verschillende tabellen komt.

Ik wil deze lijst kunnen aanvullen, waarbij de data uit de tabel in de combobox automatisch alfabetisch sorteert.

Ik zit hier al een tijd suf op te piekeren. Hopelijk heeft iemand de oplossing, die volgens mij toch niet zo moeilijk kan zijn!

alvast bedankt.
Dave

 

[HSV]

Het gemakkelijkst is om de data op het blad te sorteren.
Hier een code om dat niet te willen.

Private Sub UserForm_Initialize()
 For Each cl In Range("Test")
  If cl > 0 Then
    cl.Name = cl
   End If
  Next

For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox1.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
For Each cl In Application.Names
  If cl.Name <> "Test" Then
    If cl.Name <> "Testtwee" Then
     cl.Delete
   End If
  End If
Next

For Each cl In Range("Testtwee")
  If cl > 0 Then
    cl.Name = cl
   End If
  Next
c01 = ""
 For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox2.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
 For Each cl In Application.Names
  If cl.Name <> "Test" Then
   If cl.Name <> "Testtwee" Then
    cl.Delete
   End If
  End If
 Next
End Sub

 

[Kwabbernoot1980]

Bedankt HSV, het werkt!
Ik heb nog wel een vraagje, ik kan namelijk niet goed uit aan de opbouw van deze code...

Hoe kan ik meerdere sheets opnemen in deze code, dus uitbreiden? Bv ik heb nu sheets Test & Test2. Stel dat ik nog Test3, Test4 & Test5 heb. In deze sheets staat dus allemaal data. Bijgevolg ook ComboBox3, ComboBox4 & ComboBox5 en uiteraard ook de nodige CommandButtons. Ik heb het geprobeerd met volgende code, maar krijg dan een foutmelding:

Private Sub UserForm_Initialize()
 For Each cl In Range("Test")
  If cl > 0 Then
    cl.Name = cl
   End If
  Next

For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox1.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
For Each cl In Application.Names
  If cl.Name <> "Test" Then
    If cl.Name <> "Testtwee" Then
If cl.Name <> "Testdrie" Then
     cl.Delete
   End If
  End If
End If
Next

For Each cl In Range("Testtwee")
  If cl > 0 Then
    cl.Name = cl
   End If
End If
  Next
c01 = ""
 For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox2.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
 For Each cl In Application.Names
  If cl.Name <> "Test" Then
   If cl.Name <> "Testtwee" Then
If cl.Name <> "Testdrie" Then
    cl.Delete
   End If
  End If
End If
 Next

For Each cl In Range("Testdrie")
  If cl > 0 Then
    cl.Name = cl
   End If
End If
  Next
c01 = ""
 For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox3.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
 For Each cl In Application.Names
  If cl.Name <> "Test" Then
   If cl.Name <> "Testtwee" Then
If cl.Name <> "Testdrie" Then
    cl.Delete
   End If
  End If
End If
 Next


End Sub

alvast bedankt voor de hulp!

 

[HSV]

Je bereik A1:A20 van elk blad heb ik een naam gegeven (Test, Testtwee, Testdrie).
De namen lijken op elkaar zodat de code korter kan (zie rode tekst in de code).
Misschien kan het veel eenvoudiger door je bereik op je bladen te sorteren.

Graag codetags gebruiken.

Private Sub UserForm_Initialize()
 For Each cl In Range("Test")
  If cl > 0 Then
    cl.Name = cl
   End If
  Next

For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox1.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
For Each cl In Application.Names
  [COLOR="red"]If Not cl.Name Like "*Test*" Then[/COLOR]    
     cl.Delete
   End If
  Next

For Each cl In Range("Testtwee")
  If cl > 0 Then
    cl.Name = cl
   End If
  Next
c01 = ""
 For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox2.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
 For Each cl In Application.Names
  If Not cl.Name Like "*Test*" Then
    cl.Delete
   End If
 Next
 
 For Each cl In Range("Testdrie")
  If cl > 0 Then
    cl.Name = cl
   End If
  Next
c01 = ""
 For Each cl In Application.Names
  c01 = c01 & "|" & cl.Name
 Next
ComboBox3.List = Filter(Split(Mid(c01, 2), "|"), "Test", False)
 
 For Each cl In Application.Names
  If Not cl.Name Like "*Test*" Then
    cl.Delete
   End If
 Next
End Sub

 

[Warme bakkertje]

Deze plaatst het ongesorteerde variabele bereik van elk werkblad in een array, sorteert de array en plaatst deze in de respectievelijke combobox. De code werkt enkel indien er evenveel werkbladen als comboboxen zijn en de werkbladen in dezelfde volgorde staan als de comboboxen.

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
With Sheets(i)
    sq = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
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
Me("ComboBox" & i).List = sq
Next
End Sub

 

[HSV]

De code werkt enkel indien er evenveel werkbladen als comboboxen zijn en de werkbladen in dezelfde volgorde staan als de comboboxen.

Hoi Rudi,

Als er meerdere bladen zijn dan comboboxen is dat wel op te lossen met een
'On Error Resume Next'.
Maar de bladen moeten zoals door jou aangegeven wel in volgorde staan.

Mooie code. :thumb: