Listenfeld Anzeige aktuslisieren

Function ListUpd()
Dim i As Long
Dim i2 As Long
Dim nm As Range
Dim sht As String
Set nm = ActiveWorkbook.Names("Start").RefersToRange
i = nm.Row + 1
i2 = 1
LB1.Clear
LB1.AddItem "Alle"
LB1.List(0, 1) = ""
Do Until Cells(i, nm.Column).Value = ""
If Cells(i, nm.Column).Value  Cells(i - 1, nm.Column).Value Then
LB1.AddItem Cells(i, nm.Column).Value
LB1.List(i2, 1) = Cells(i, nm.Column + 1).Value
i2 = i2 + 1
End If
i = i + 1
Loop
End Function