Macro met drop-down menu in UserForm

  • Onderwerp starter Onderwerp starter Dr Iq
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Dr Iq

Nieuwe gebruiker
Lid geworden
2 feb 2008
Berichten
2
Dag allemaal,

Ik ben bezig met een macro, die automatisch een offerte bestand in word invult. Hiervoor heb ik een UserForm gemaakt met wat invulvelden voor de opties die in de offerte verwerkt moeten worden. Hierbij wil ik alleen voor bepaalde opties een keuzelijstje maken m.b.v. een drop-down menu omdat dat altijd dezelfde keuzes zijn uit een beperkt aantal opties.
Dit zou denk ik moeten kunnen met een ComboBox, alleen krijg ik het niet voor elkaar om de verschillende opties "in" die combobox te krijgen zodat er in mijn UserForm een dropdown verschijnt met de opties erin.
Wie weet hoe ik dat voor elkaar kan krijgen?

Alvast bedankt.

Groeten Dirk
 
Ik gebruik dit, ik zet op een ander blad de lijst met keuzes en gebruik ik deze code in de userform_activate.

Code:
Dim rangeArray()
    
    rangeArray = RangeToArray(Sheets("Sheet2").Range("A1:A201"))
    
    ComboBox1.columnCount = 2
    ComboBox1.Column() = rangeArray
    
    Erase rangeArray
 
Bedankt voor je reactie maar dat is in Excel als ik het goed begrijp. En ik gebruik hem in Word.
Ik ben er inmiddels achter hoe het zit.
In de Subroutine UserForm_Initialize() kan je gewoon de combobox vullen zeg maar door AddItem te gebruiken.
Je krijgt dan zo iets:
Code:
Private Sub UserForm_Initialize()
        ComboBox1.AddItem "optie 1"              'ListIndex = 0
        ComboBox1.AddItem "optie 2"              'ListIndex = 1
        ComboBox1.AddItem "optie 3"              'ListIndex = 2
        ComboBox1.AddItem "optie 4"              'ListIndex = 3
        ComboBox1.AddItem "optie 5"              'ListIndex = 4
End Sub

Groeten Dirk
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan