combobox op userform

[bartcorvers]

hallo,

ik gebruik in excel 2007 een userform met daarop een combobox. De gegevens achter de combobox worden bepaald door een gedefinieerde naam te plaatsen op de eigenschap Rowsource.
De gedefinieerde naam refereert naar een bepaald cellenbereik op een sheet in het werkboek.

Nu zou ik graag willen, dat indien er een nieuwe waarde (niet voorkomend in de lijst van de combobox) in de combobox wordt ingevoerd, dat deze automatisch wordt bijgevuld in het bereik van de gedefinieerde naam.

wie kan mij helpen?

 

[sylvester-ponte]

hallo Bart,
dat kan ik alleen met VBA
misschien zijn er anderen die dat zonder VBA kunnen.
en stuur een voorbeeldje

groet sylvester

 

[snb]

Als je van het benoemd bereik een dynamisch benoemd bereik maakt, ben je klaar.

 

[sylvester-ponte]

dynamisch benoemd bereik

????
geef eens een klein voorbeeldje

groet

 

[snb]

=OFFSET(Sheet1!$A$1;;;COUNTA(Sheet1!A:A))

=Verschuiving(Sheet1!$A$1;;;AANTALARG(Sheet1!A:A))

 

[sylvester-ponte]

snb en bart

uiteindelijk heb je toch vba nodig om de ingetypte naam in de combobox in de lijst te krijgen

dus dan toch maar een voor beeldje met vba: Bekijk bijlage Map1.xlsm

 

[bartcorvers]

het voorbeeld doet precies wat ik wens. Dank je wel!!!

 

[snb]

Daar heb je geen gelijk in: het kan zonder VBA. Kijk maar naar de bijlage.


Als je VBA wil gebruiken, kun je dat beter zo doen (meer is niet nodig):

private Sub Userform_initialize()
  combobox1.list=sheets("Blad1").columns(1).specialcells(2).value
end sub

 

[sylvester-ponte]

hallo snb

als ik iets nietbestaands in typ in de combo dan wordt het niet toegevoegd aan de lijst

en dat was onze opdracht

groet sylvester

 

[snb]

Dan moet je zeker geen benoemd bereik noch rowsource gebruiken:

Maar:

Private Sub Userform_initialize()
  ComboBox1.List = Sheets("sheet1").Columns(1).SpecialCells(2).Value
End Sub

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  If ComboBox1.ListIndex = -1 And ComboBox1.Value <> "" Then Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1) = ComboBox1.Value
  ComboBox1.List = Sheets("sheet1").Columns(1).SpecialCells(2).Value
End Sub

 

[sylvester-ponte]

snb dus ook jij moet VBA gebruiken