Combobox 3 cellen in 1 maken en verbergen wanneer dit 0 is

[Bosswilly]

Goedendag,

Hoe kan ik 3 cellen (periode - Omschrijving - bedrag) in 1 combobox (Cmbx3_01_std_omschr) invoeren?

(Combobox(Cmbx3_01_std_omschr) verkrijg je door de ja box daarvoor aan te vinken.)

Daarnaast moet ik de waarde € 0,00 niet meer in de combobox meer terug kunnen zien?

Ik hoor wel van jullie.

Alvast bedankt.

Vriendelijke groet,

Bosswilly

 

[gast0660]

Helpt dit u verder?
Bekijk bijlage Test bosswilly.xlsm

 

[Bosswilly]

Hartelijk dank voor mijn probleem.

Dit is een geweldige oplossing.

Hier mee kan ik zeker verder.

Nogmaals dank hiervoor.

 

[gast0660]

Graag gedaan

 

[Bosswilly]

Heb nog 1 vraagje,

Is het ook mogelijk om 2 of meer verschillende groepen aan te maken, waarbij je kunt kiezen uit welke set je kunt nemen?

En hoe kan ik Cmbx3_01_spaardoel koppelen aan zo'n groep.

Stel je voor Cmbx3_01_spaardoel a gebruik ik voor combipolis en Cmbx3_01_spaardoel b gebruik ik voor zorgverzekering.

Alvast bedankt voor het antwoord.

 

[gast0660]

Bedoel je dit?
Bekijk bijlage Voorbeeld BW.xlsm

 

[Bosswilly]

Inderdaad, dit zocht ik.

Reden hiervoor is dat ik de administratie voor mezelf makkelijker kan maken.

Hier kan ik echt heel veel mee.

Hartelijk dank hiervoor.

Met vriendelijke groet,

Bosswilly

 

[gast0660]

Graag gedaan.

voor mezelf makkelijker kan maken

Als tip, geef je textboxen en comboboxen een simpele naam.
Ik gebruik voor mijn text-comboboxen altijd T_00, T_01 enz.
Checkboxen Chb_00 Chb_01 enz.

 

[VenA]

@gast0660, Van het bestand maar een voorbeeld gemaakt:thumb:

Iets anders geschreven.
Columncount en columnwith kan je net zo goed in het ontwerp van het formulier aangeven.

Sub VenA(Lo As Object)
  With C_01
    .List = Lo.Value
    For j = .ListCount - 1 To 0 Step -1
      If .List(j, 2) = 0 Then .RemoveItem j
    Next j
  End With
End Sub

Private Sub C_00_Change()
  Select Case C_00.Text
    Case "Combipolis"
      VenA [combipolis_tbl]
    Case "Spaardoel"
      VenA [spaardoel_tbl]
  End Select
End Sub

Scheelt wat copy/paste als er meer tabellen bijkomen.

 

[gast0660]

@ Vena, is idd lekker kort.:thumb:

 

[VenA]

Met maar 2 opties

Private Sub C_00_Change()
  VenA IIf(C_00.Text = "Combipolis", [combipolis_tbl], [spaardoel_tbl])
End Sub

Al moet er eigenlijk nog een controle in op de listindex.