meerere rijen in Combobox

[jeroenSturm]

hallo mensen,

ik vraag me af hoe ik via vb een 2e rij invoer in mijn combobox
na heel het internet afgezocht te hebben kom ik er eingelijk nog niet daar dat ik het hier vraag.

even voor alle duidelijkheid dit bedoel ik

1    jan
2    piet

dit is de code die ik gebruik voor rij 1:

Sub CMBB()
Dim r As Long
ComboBox1.Clear

For r = 2 To Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
    If Sheets(2).Cells(r, 3).Value <> "" Then
        ComboBox1.AddItem Sheets(2).Cells(r, 3).Value
        

    End If
Next
End Sub

ik dacht aan zoiets (rood is aangepast)!

Sub CMBB()
Dim r As Long
ComboBox1.Clear

For r = 2 To Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
    If Sheets(2).Cells(r, 3).Value <> "" Then
        ComboBox1.AddItem Sheets(2).Cells(r, 3).Value[COLOR="#FF0000"], Sheets(2).Cells(r, 2).Value[/COLOR]
        

    End If
Next
End Sub

maar dat werkt niet

heeft iemand een oplossing voor mij ?

 

[jeroenSturm]

nou mensen ik heb het toch nog op kunnen lossen door midddel van deze code

Sub CMBB()
Dim r As Long
ComboBox1.Clear

For r = 2 To Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
    If Sheets(2).Cells(r, 3).Value <> "" Then
  
        ComboBox1.AddItem Sheets(2).Cells(r, 2).Value
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = Sheets(2).Cells(r, 3).Value
      
        

    End If
Next
End Sub