Sortieren

Private Sub cboMas_exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Found As Range
Dim FirstAddress As String
Dim Search As String
Dim LoLetzte As Long
Dim LoI As Long
Sheets("tabelle2").Select
LoLetzte = 65536
If Range("m65536") = "" Then LoLetzte = Range("m65536").End(xlUp).Row
Search = userform1.txtboxMart.Text
If Search = "" Then Exit Sub
With ActiveSheet.Range("m1:m" & LoLetzte)
Set Found = .Find(userform1.txtboxMart, ActiveSheet.Range("m" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub
FirstAddress = Found.Address
Me.CboBeze.AddItem Found.Offset(0, -2)
LoI = LoI + 1
Do
Set Found = .FindNext(Found)
If Found.Address = FirstAddress Then Exit Sub
Me.CboBeze.AddItem Found.Offset(0, -2)
If Found.Row = LoLetzte Then Exit Sub
LoI = LoI + 1
Loop While Not Found Is Nothing
End With
End Sub