Link to home
Create AccountLog in
Avatar of Massimo Scola
Massimo ScolaFlag for Switzerland

asked on

How do I change a value in a row - data displayed in a combobox

I've created a combobox and filled the data with values from a named range, called "Kunden_mit_Adresse". Here is my code:

    'Set reference to the range of data to be filled
    Set rngSourceKunde = Worksheets("Kunden").Range("Kunden_mit_Adresse")
    'Fill the listbox
    Set lbtarget = Me.lstKundenListe
    With lbtarget
        'Determine number of columns
        .ColumnCount = 6
        'Set column widths
        .ColumnWidths = "0;130;110;20;0;20"
        'Insert the range of data supplied
        .List = rngSourceKunde.Cells.Value
    End With

Open in new window

As you can see, I've created several textboxes. When a customer is selected from the combobox, I wish the data to be displayed in the textfields and be able to change the values (in the spreadsheet).  See attached spreadsheet example.

My goal is that a customer's data can be changed with an Excel userform.


Avatar of ukerandi
Flag of United Kingdom of Great Britain and Northern Ireland image

Link to home
Create an account to see this answer
Signing up is free. No credit card required.
Create Account
Avatar of Massimo Scola


hi ukerandi

It somehow doesn't work. I checked your code:

Private Sub KundeSuchen()
Dim lng As Long
Dim i As Integer

    On Error Resume Next
    lng = frm_daten.ListBox1.Column(5)
End Sub

Open in new window

Private Sub lstKundenListe_Click()
txtKundenName.text = lstKundenListe.text

MsgBox lstKundenListe.text
End Sub

Open in new window

It seems that lstKundenListe.text retrieves the customer's name only. What do I need to do to get, for example, the address? Your code would really help me a lot, as it helps me with other forms I have created.

Thank you
sorry didn't work :-(
i just saw ure email,