meerder waarde in combobox weergeven

[jo geuens]

hallo in heb een formulier waar ik waarde opzoek nu wil ik in de combobox4 meerder waarde weergeven nu krijg ik enkel het nummer van elke rij van mijn werkblad.
nu zou ik ook graag de waarde van kollom B en G weergeven.

Private Sub UserForm_Initialize()
    c0 = Join(WorksheetFunction.Transpose(Sheets("Planning").Range("A8", Sheets("Planning").Range("A65000").End(xlUp).Address)), "|")
    With ComboBox4
        .Clear
        .List = Split(c0, "|")
    End With
End Sub

zo ziet het er nu uit


de waarde van kollom B en G zou acher de lijn nummer moeten staan

 

[snb]

Volgens mij bedoel je logistieker...

Private Sub UserForm_Initialize()
    combobox4.List= sheets("Planning").Range("A8", sheets("Planning").cells(rows.count,1).End(xlUp).Address).value
End Sub

 

[jo geuens]

hoi SNB

deze code werkt ook maar nu krijg ik in mijn combobox nog altijd geen waarde achter de nummers van kolom B en G
meer zoiets maar dan in een combobox

 

[snb]

Plaats svp een voorbeeldbestand.

 

[jo geuens]

hoi snb

kan ik het ook mailen er staan enkele pesoonlijke zaken in ziet ge die beter niet zomaar voor iedereen gezien moeten worden

Thx

 

[snb]

Je kun me bereiken via de suggestieknop op mijn website : www.snb-vba.eu

 

[snb]

Je maakt het jezelf veel te moeilijk.
Je hebt geen zoekknop nodig:

Private Sub UserForm_Initialize()
    ComboBox4.List = Sheets("Planning").Range("A8", Sheets("Planning").Range("A65000").End(xlUp).Offset(, 18).Address).Value
End Sub

Private Sub ComboBox4_Change()
    For j = 2 To 17
        Me("textbox" & j).Text = ComboBox4.List(ComboBox4.ListIndex, j - 1)
        If j > 8 And j < 14 Then Me("textbox" & j).Text = Format(ComboBox4.List(ComboBox4.ListIndex, j - 1), IIf(j < 11, "dd-mm-yyyy", "hh:mm"))
    Next
    
    ComboBox2.Value = ComboBox4.List(ComboBox4.ListIndex, 14)       'uitvoerder
    ComboBox5.Value = ComboBox4.List(ComboBox4.ListIndex, 15)  'compleet
    OptionButton1.Value = ComboBox4.List(ComboBox4.ListIndex, 3) = "ja"
End Sub

Kijk ook eens hier: http://www.snb-vba.eu/VBA_Userform_in_database.html

 

[jo geuens]

hoi snb

thanks ziet er inderdaat stuk eenvoudiger uit .