Prijs overnemen uit Label naar Listbox

[Atwist]

Hallo

Ik heb nog 1 item waar ik zelf niet uitkom

De prijs in Label1 moet overgenomen worden naar het gekozen iteem in listbox 1 zodat de prijs achter het item komt te staan.
Dit zou kunnen gebeuren door op de button "prijs overnemen" te klikken.

Mag ik daarom nog een beroep op jullie doen

 

[HSV]

Verwijder '=pro-naam' in de eigenschappen van de listbox.

Columncount op 5
Columnwidths aanvullen.

Voeg de rode regelcode toe.

Private Sub UserForm_Initialize()
[COLOR=#ff0000]ListBox1.List = Sheets("product prijzen").Cells(1).CurrentRegion.Offset(1, 1).Resize(, 5).Value[/COLOR]
Label1.Caption = Range("Calculatie!H1").Value
Label2.Caption = Range("Calculatie!A2").Value

Achter de groene knop:

Private Sub CommandButton2_Click()
 if listbox1.listindex > - 1 then ListBox1.column(4) = Label1
End Sub

 

[VenA]

Volgens mij heb je zeer veel items die veel beter kunnen.
wat doet dit

Sheets("Calculatie").Range("C11") = CheckBox1.Value

in een UserForm_Initialize?

Waarom een rowsourse gebruiken voor een listbox? Waarom een voorbeeldbestand met verwijzingen naar een extern bestand? Waarom onmogelijk veel code om de labels te vullen?

Het antwoord op jouw vraag had je met 1 klik in de ontwerpmodus kunnen vinden.

Private Sub ListBox1_Click()
 Label1 = ListBox1.Column(3)
End Sub

Maak gebruik van tabellen zonder lege rijen en kolommen en alle code kan stukken eenvoudiger.

 

[Atwist]

Dank je wel Harry.
Hiermee kan ik weer verder bouwen.

 

[huijb]

Onnodige quote verwijderd.

 

[VenA]

Met een paar meter minder code en het gebruik van tabellen.