Hallo,

Maak de werkbalk VBA zichtbaar (rechtermuis 1 maal klikken in een werkbalk en activeer de werkbalk Visual Basic).  Kies hier de "Werkset Besturingselementen" (icoontje met hamertje). Nu kan je een Listbox of Combobox op het werkblad plaatsen.  

Dubbelklik op het gemaakte besturingselement (in ontwerpmodus --> icoontje driehoek met lat moet ingedrukt zijn) en je komt automatisch in de VBA-editor waar je de code kan toevoegen.

Bij gebruik van besturingselementen op deze wijze moet je er wel rekening mee houden dat ze (meestel) opgemaakt worden bij het inladen van het bestand (via procedure Initialze).  Als je via een formulier werkt moet dit slechts opgemaakt worden op het ogenblik dat je het formulier oproept.

Buks

Hallo,

Ik veronderstel dat je de code onmiddellijk in de combobox wenst te plaatsen bij het opstarten.  Dan moet je je code bij het object "Workbook" plaatsen met de procedure "Open".  Ga als volgt te werk:

Ga naar de VBA-editor en dubbelklik in de projectverkenner op ThisWorkbook. Kies het object (keuzelijst links boven in het programmacode venster) "Workbook" en de procedure (lijst rechtsboven) "Open".  Vul je code hier aan :

Private Sub Workbook_Open()
Worksheets("Blad1").Activate
Worksheets("Blad1").ComboBox1.AddItem "Left Top"
Worksheets("Blad1").ComboBox1.AddItem "Left Center"
Worksheets("Blad1").ComboBox1.AddItem "Left Bottom"
Worksheets("Blad1").ComboBox1.AddItem "Right Top"
Worksheets("Blad1").ComboBox1.ListIndex = -1
End Sub

Via het laatste regeltje zorg je ervoor dat het invulvak leeg is bij het opstarten.


Voor de verdere verwerking van uw keuze :

Dubbelklik in de projectverkenner op Blad1 en kies het object "Combobox1" en de procedure "Change".  Hier vul je dan de code in voor de verwerking.  Als voorbeeld de waarde van de keuze :

Private Sub ComboBox1_Change()
MsgBox ComboBox1.Value
End Sub

De code kan je natuurlijk naar hartelust aanpassen en mee experimenteren (zorg er wel steeds voor dat je een correcte kopie hebt van het origineel).

Buks

Graag gedaan,

weer een tevreden "oplosser" erbij  

groetjes