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.

Massimo

example.gif
example.xlsm
ASKER CERTIFIED SOLUTION
Avatar of ukerandi
ukerandi
Flag of United Kingdom of Great Britain and Northern Ireland image

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

ASKER

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()
cmbAnrede.Clear
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,