Új hozzászólás Aktív témák

• #15428 Attas aktív tag Delila_1 #15423

  Új Válasz 2012-11-06 19:45:49 #15428

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Attas

  aktív tag

  válasz Delila_1 #15423 üzenetére

  Ö...valamit nem jól csinálok...
  Ez miért nem működik úgy ahogy kellene? Az első és második ComboBox tökéletes, de a harmadik valamiért csak a Sheets("Adattábla").Range("C2 : C6").Value dolgozik hiába változik a ComboBox2 tartalma

  Private Sub ComboBox1_AfterUpdate()
  ComboBox2.Text = ""
  
  If ComboBox1.Text = "ZK7" Then
  ComboBox2.List = Sheets("Adattábla").Range("B2:B5").Value
  ElseIf ComboBox1.Text = "ZK6" Then
  ComboBox2.List = Sheets("Adattábla").Range("B8:B11").Value
  End If
  
  
  End Sub
  
  Private Sub ComboBox2_AfterUpdate()
  ComboBox3.Text = ""
  
  If ComboBox2.Text = "GE Gen2" Then
  ComboBox3.List = Sheets("Adattábla").Range("C2:C6").Value
  ElseIf ComboBox2.Text = "GE Gen3" Then
  ComboBox3.List = Sheets("Adattábla").Range("C7:C12").Value
  
  
  End If
  End Sub

Új hozzászólás Aktív témák