zweispaltige Combobox Wert 2

Private Sub UserForm_Initialize()
Dim zeile As Long
Dim Repeatings As Integer
Dim N As Integer
Dim letzte As Range
Dim i As Long
'Sheet "Reiseziele" Spalten auslesen
For Repeatings = 1 To Sheets("Reiseziele").Range("A65536").End(xlUp).Row
With Me.cbx_Zielort
.ColumnCount = 2
.BoundColumn = 2
.AddItem
N = .ListCount - 1
.List(N, 0) = Sheets("Reiseziele").Cells(Repeatings, 1)
.List(N, 1) = Sheets("Reiseziele").Cells(Repeatings, 2)
.List(N, 2) = Sheets("Reiseziele").Cells(Repeatings, 3)
End With
Next