Cases in een combobox

[Hoornvan]

Ik hoor het wel.

 

[Hoornvan]

Rap261,

Ik heb er nog 1 regel bij gezet (in het rood), nu werkt hij zoals je wil dacht ik.

Private Sub FollowLink(ByVal intIndex As Integer)
    [COLOR="Red"]Range("L15").Value = ""[/COLOR]
    Select Case intIndex
    Case 0
    ComboBox2.ListFillRange = "Cash"
    Range("J15").Value = "Cash"
    If Range("J15") = "Cash" Then Range("L15").Value = ""
    Case 1
    ComboBox2.ListFillRange = "Stukken"
    Range("J15").Value = "Stukken"
    ComboBox3.ListFillRange = "Afdeling"
    'Range("L15").Value = "Afdeling"
    End Select
End Sub

 

[snb]

In de bijlage een alternatief dat werkt met:

Private Sub ComboBox1_Change()
  x = ComboBox1.ListIndex
  With ComboBox2
    .Value = ""
    .ListFillRange = Columns(3 * x + 2).SpecialCells(2).Offset(1).Address
  End With
  With ComboBox3
    .Value = ""
    .ListFillRange = IIf(x = 0, "", Columns(3 * x + 3).SpecialCells(2).Offset(1).Address)
  End With
  [J15] = ComboBox1.Value
  [L15] = Choose(x + 1, "", "Afdeling")
End Sub

Private Sub ComboBox2_Change()
  If ComboBox1.ListIndex = 0 Then
    With ComboBox2
      ComboBox3.ListFillRange = Columns(3 + .ListIndex).SpecialCells(2).Offset(1).Address
      [L15] = .Value
    End With
  End If
End Sub

 

[Rap261]

Wim,

Ik heb het script na aanpasisng in mijn bestand gezet en doe wat ik wil.
Probleem is dan nu echt opgelost.

Snb jou script gaat mij (nog) iets te ver maar ik bewaar hem wel voor als wat straks meer kennis heb van VBA.

Heren wederom bedankt!