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

Massimo Scola
Massimo Scola used Ask the Experts™
on
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
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Commented:
check this, You need to Double click on Selected Name filed, then form will display

YOU need to DOUBL CLICK Mouse button on Any name Field cell
example.xlsm
Massimo ScolaSoftware Engineer

Author

Commented:
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
Massimo ScolaSoftware Engineer

Author

Commented:
sorry didn't work :-(

Commented:
i just saw ure email,

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial