Alternative zu Exit Sub

  Dim iRow As Integer
With Me.CmbB2
.Text = ""
.ColumnCount = 3
.ColumnWidths = "70Pt;25Pt;20Pt"
'bis zur letzten Zeile mit Eintrag
For iRow = 7 To wks.Cells(Rows.Count, 24).End(xlUp).Row
.AddItem wks.Cells(iRow, 24).Value 'Spartentext
.List(.ListCount - 1, 1) = wks.Cells(iRow, 23).Value
.List(.ListCount - 1, 2) = iRow
If wks.Cells(iRow, 24).Value = "Ende" Then Exit Sub
Next iRow
End With

      If wks.Cells(iRow, 24).Value = "Ende" Then Exit Sub