Private Sub Jahresliste()
        If BS_Eingang_Liste Is Nothing Then Exit Sub
        If BS_Eingang_Liste.Count = 0 Then Exit Sub
        Dim Jahr_von = BS_Eingang_Liste.Min(Function(x) x.Bestelldatum).Year
        Dim Jahr_bis = BS_Eingang_Liste.Max(Function(x) x.Bestelldatum).Year
 
        cbx_Jahr.Items.Clear()
        For i = Jahr_von To Jahr_bis : cbx_Jahr.Items.Add(i) : Next
        cbx_Jahr.SelectedIndex = -1
    End Sub