mmat ich habe noch eine Frage zu Deinen Code

Private Sub cboList_Change()
Dim r As Long, x As Long, s As String, p As Long
txtFlight.Text = ""
txtFlight2.Text = ""
txtFlight3.Text = ""
x = cboList.ListIndex
If x = -1 Then Exit Sub
s = cboList.List(x): p = InStr(s, "|"): r = Val(Mid(s, p + 1))
txtFlight.Text = Cells(r, 2).Value
If Cells(r + 1, 1) = Cells(r, 1) Then txtFlight2.Text = Cells(r + 1, 2).Value
If Cells(r + 2, 1) = Cells(r, 1) Then txtFlight3.Text = Cells(r + 2, 2).Value
End Sub

Private Sub cmdAbbrechen_Click()
'Schaltfläche Abbrechen
Me.Hide: Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim r As Long
cboList.AddItem Cells(1, 1).Text + " |1"
r = 2
While Cells(r, 1)  ""
If Cells(r, 1)  Cells(r - 1, 1) Then cboList.AddItem Cells(r, 1).Text + " |" + CStr(r)
r = r + 1
Wend
End Sub