• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Prijs overnemen uit Label naar Listbox

Status
Niet open voor verdere reacties.
Atwist

Atwist

Terugkerende gebruiker
Lid geworden
24 jan 2006
Berichten
1.076
Besturingssysteem
Wndows 11
Office versie
2016
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
 

Bijlagen

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

Columncount op 5
Columnwidths aanvullen.

Voeg de rode regelcode toe.
Code: 
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:

Code: 
Private Sub CommandButton2_Click()
 if listbox1.listindex > - 1 then ListBox1.column(4) = Label1
End Sub
 
Laatst bewerkt:
Volgens mij heb je zeer veel items die veel beter kunnen.
wat doet dit
Code: 
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.
Code: 
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.
 
Dank je wel Harry.
Hiermee kan ik weer verder bouwen.
 
Laatst bewerkt door een moderator:
Onnodige quote verwijderd.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan