Excel, Userform

[Tsw]

Goedemiddag,

Ik heb een voorbeeld bestandje gemaakt:
Bekijk bijlage Voorbeeld1.xlsm

Hier heb ik een voorbeeld van een Userform gemaakt.
Hierbij kies je in ListBox1 een waarde. (1 van de waarde in de rij A)
Nu moet er in TextBox1 automatisch de waarde komen te staan die achter de waarde van rij A staat. (dus in rij B)

Dus als er in ListBox1 C word gekozen, dan moet er in TextBox1 80 komen te staan.

Hoe krijg ik dit voor elkaar?

Alvast bedankt voor de hulp.

 

[gast0660]

Hoi,
Zoiets?
Bekijk bijlage test a en b.xlsb

 

[HSV]

Als je alle gegevens in de Listbox zet, hoef je de waardes niet meer op te zoeken.

Zet 'Columncount' op 2
Zet 'ColumnWidths' op 40;0

Dit is dan voldoende aan code.

Private Sub LIstBox1_Click()
With ListBox1
  TextBox1 = .List(.ListIndex, 1)
End With
End Sub


Private Sub UserForm_Initialize()
 ListBox1.List = Cells(1).CurrentRegion.Value
End Sub

 

[Tsw]

Perfect, hier kan ik mee verder.

Bedankt.

 

[Tsw]

Harry,

Als ik jou formule gebruik krijg ik een foutmelding bij ;; TextBox1 = .List(.ListIndex, 1);;
Waar zit dat in?

 

[HSV]

Zoek maar even in dit bestandje.

 

[karell]

Harry,

Als ik jou formule gebruik krijg ik een foutmelding bij ;; TextBox1 = .List(.ListIndex, 1);;
Waar zit dat in?

Met excel 2007 werkt het goed.

 

[snb]

hiermee:

Private Sub LIstBox1_[COLOR="#FF0000"]Change[/COLOR]()
  If ListBox1.listindex>-1 then TextBox1 = listbox1.column(2)
End Sub


Private Sub UserForm_Initialize()
 ListBox1.List = Cells(1).CurrentRegion.Value
End Sub

 

[HSV]

@snb,

Is er iets mis met de Click gebeurtenis?
Je wandelt er net zo goed met de pijltjestoets door.