Apart getal + aparte tekst samen in 1 TextBox

[wivoe]

Hallo geachte helpers,

In ComboBox CB_01 zijn jaartallen; 2018, 2019 enz. In ComboBox CB_02 zijn maanden; jan, feb enz.
Wat ik zoek is VBA code waar in TextBox T_01 komt te staan b.v.: 2018 feb

De code die ik gevonden heb, werkt niet:

Private Sub CB_02_Change()
      If IsNumeric(Me!CB_01) And IsNumeric(Me!CB_02) Then
      T_01.Value = (Me!CB_01 + Me!CB_02)
   End If
End Sub

Wat wel werkt zijn; vermenigvuldiging * i.p.v. de + , delen / en aftrekken -
Waarbij zei opgemerkt dat CB_02 dan wel is gevuld met getallen.
Bij bovenstaande formule, dus met + komt b.v.: CB_01 = 2015 + CB_02 = 3 T_01 = 20153 i.p.v. 2018
Logische wijze zou je dan denken om de tekst om te zetten naar getallen. Maar hoe doe je dat?

Graag uw gewaarde hulp s.v.p.

Wim

 

[edmoor]

Erg onduidelijk,
Staat er in CB_02 nou jan, feb enz. of 1, 2 enz.?

In het eerste geval is het gewoon:

T_01.Text = CB_01.Text & " " & CB_02.Text

 

[wivoe]

Hallo Edmoor,

In ComboBox CB_01 staan de jaartallen (2015, 2016, enz.) en in ComboBox CB_02 staan de maanden (jan, feb, enz.)

Heb je code geprobeerd, maar werkt niet. Krijg ook geen foutmelding.

Heb je code wat aangepast:

T_01 = C_01.Value & " " & C_02.Text

werkt ook niet.

Wim

 

[edmoor]

Dat is ook helemaal fout uiteraard.
Plaats dan je document.

 

[wivoe]

Hallo Edmoor,

Sorry dat het zo lang duurde, maar na al die jaren
dat ik hier kom vind ik het nog steeds lastig om een bestand
te uploaden.

Wim

 

[edmoor]

Wat ik in #2 zei is gewoon goed, maar dat komt uiteraard niet vanzelf in Textbox1 terecht:
Bekijk bijlage Kopie van TestJarenMaanden.xlsb

 

[emields]

staat in uw code wel de juiste naam van de textbox en comboboxen?

 

[wivoe]

Beide heren,

Hartstikke bedankt voor jullie oplossingen, beide werken.

Groeten, Wim

 

[VenA]

De maanden kan je gewoon uit 'CustomListContents' halen. Het gebruik van rowsource is ook nergens voor nodig.

 

[HSV]

Het geheel kan zonder blad1.

c1.List = [row(2017:2027)]

 

[wivoe]

Goedendag,

VenA, wist helemaal niet van het bestaan van de 'CustomListContents', bedankt. Daar moet ik nog eens induiken.

HSV, kan de code c1.List = [row(2017:2027)] met iets als b.v.: c1.List = [row(A1:A)]
Alleen, de laatste c1.List = [row(A1:A)] werkt bij mij niet.

Wim

 

[HSV]

Dan ben je wel verbonden aan het blad.

c1.List = [blad1!a1:a11].value

Of:

 c1.List = Evaluate("a1:a" & cells(rows.count, 1).end(xlup).row).value

Of:

c1.List = cells(1).currentregion.value

 

[wivoe]

Hallo HSV,

Het voordeel, maar dat is mijn interpretatie, is dat als je gebonden bent aan een blad,
je altijd via de betreffende ComboBox weer een jaartal erbij kunt maken, die dan aansluit
op de andere jaren. Dit kan dan ook gedaan worden door iemand die geen verstand
van Excel heeft.
In een vorig bestand heb ik dat gedaan door te dubbelklikken in een ComboBox.

De middelste code spreekt mij aan om dezelfde reden als hierboven geschetst.
Er hoeft dan geen 'range' meer verlengt te worden door een niet Excel kenner.
De opslag kan dan in principe doorlopen tot de onderste rij.

Of ben je een andere mening toegedaan?

Wim

 

[HSV]

Mij spreekt meer de laatste coderegel aan.