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

• #7764 adam_ senior tag

  Új Válasz 2014-02-11 13:04:54 #7764

  Ú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

  

  adam_

  senior tag

  Sziasztok! Hiába futtatom a lenti kódsort, a ComboBoxokat nem tölti fel a megfelelő adatokkal, és üresen maradnak. Hol lehet a hiba? Kód nélkül a tulajdonságok paneles beállításokkal simán mentek, de így kódból valamiért nem akarja kitölteni a ComboBoxokat.

  Private Sub ComboBox2_Change()
  Worksheets("Munka1").Range("A2") = ComboBox2.Value
  Worksheets("Munka1").Range("B2") = ComboBox2.List(ComboBox2.ListIndex, 1)
  End Sub
  
  Private Sub UserForm1_Initialize()
  Dim strVarosok(5) As String
  Dim strAruk(4, 1) As String
  strVarosok(0) = "Érd"
  strVarosok(1) = "Szeged"
  strVarosok(2) = "Pécs"
  strVarosok(3) = "Szolnok"
  strVarosok(4) = "Budapest"
  strVarosok(5) = "Vác"
  strAruk(0, 0) = "Rádió"
  strAruk(0, 1) = "28000"
  strAruk(1, 0) = "Televízió"
  strAruk(1, 1) = "65000"
  strAruk(2, 0) = "Magnetofon"
  strAruk(2, 1) = "29300"
  strAruk(3, 0) = "CD lejátszó"
  strAruk(3, 1) = "34000"
  strAruk(4, 0) = "Videó"
  strAruk(4, 1) = "70000"
  ComboBox1.List = strVarosok
  ComboBox2.List = strAruk
  ComboBox2.ColumnCount = 2
  ComboBox2.ColumnWidths = "1 cm ; 0 cm"
  
  End Sub

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