korter maken AddItem methode

Status
Niet open voor verdere reacties.
H

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Beste forumleden

is er een mogelijkheid om de volgende AddItem lijst van in te korten het gaat om het a t/m z gedeelte en het zijn maar 6 categorien die ik zichtbaar will maken in de combobox.

Code: 
Private Sub UserForm_Initialize()
   
   For i = 1 To 12
      ComboBox1.AddItem (i)
   Next i
        
   ComboBox2.AddItem ("a")
   ComboBox2.AddItem ("b")
   ComboBox2.AddItem ("c")
   ComboBox2.AddItem ("d")
   ComboBox2.AddItem ("v")
   ComboBox2.AddItem ("Z")
   
   For i = 2015 To 2025
      ComboBox3.AddItem (i)
   Next i
   
   
      
End Sub

alvast bedankt
Rob
 
Verschillende methodes waarbij AddItem overbodig is:
Code: 
    Dim ltr(25) As String
    Dim i As Integer
    
    For i = 97 To 122 [COLOR="#008000"]'a to z[/COLOR]
       ltr(i - 97) = Chr(i)
    Next i
    ComboBox2.List = ltr

Of voor die genoemde 6 letters:
Code: 
ComboBox2.List = Split("a,b,c,d,v,z", ",")

Waar je eventueel uiteraard ook alle 26 letters zou kunnen gebruiken.
Kijk ook eens hier:
http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html
 
Laatst bewerkt:
Hi edmoor,

Dat is een hele mooie oplossing daar ga ik zeker mee spelen en bedankt voor je snelle reactie. :thumb:

groetjes rob
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan