vyhledávací okno s listboxem

[cmuch]

Třeba takto

Kód: Vybrat vše

For Each c In r
   lb.AddItem c.Value
   lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = Cells(c.Row, "A").Value
Next

[Reklama]

[crgo77]

Zdravím,už jsem chtěl toto vlákno uzavřít,ale vyskytl se mi problém. Během užívání bylo zjištěno,že by bylo potřeba zobrazit
v prvním sloupci to co hledám a v druhém sloupci hodnotu ze sloupce a ve stejném řádku. Snažím se to upravit,ale pokaždé jsem skončil s chybou č.9
(Subscript out of range).Poslední úprava kterou jsem provedl je úprava kódu

Kód: Vybrat vše

For Each c In r
   lb.AddItem c.Value
   lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = Cells(c.Row, "A").Value
   'lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = c.Parent.Name
   'lb.Column(lb.ColumnCount - 1, lb.ListCount - 1) = c.Address


už nevím jak na to,proto bych prosil o radu.
Předem děkuji