Private Sub BS_Lagerliste_ListChanged(sender As Object, e As _
   System.ComponentModel.ListChangedEventArgs) Handles BS_Lagerliste.ListChanged
        If BS_LagerDB_Liste.Count = 0 Then Return
        lbl_Anzahl_Ereignisse.Text = BS_Lagerliste.Count.ToString
 
        Anzahl_ermitteln()
 
 
    End Sub
    Public Sub Anzahl_ermitteln()
        Dim gefunden As Integer = 0
        Dim abgearbeitet As Integer = 0
        Dim ueberfuehrt As Integer = 0
 
        For Each row As DataGridViewRow In LagerlisteDataGridView.Rows
            If row.Cells(10).Value = True Then
                gefunden += 1
            End If
        Next
 
        For Each row As DataGridViewRow In LagerlisteDataGridView.Rows
            If row.Cells(11).Value = True Then
                abgearbeitet += 1
            End If
        Next
 
        For Each row As DataGridViewRow In LagerlisteDataGridView.Rows
            If row.Cells(12).Value = True Then
                ueberfuehrt += 1
            End If
        Next
 
        chb_INMaximo.Text = String.Concat("gefunden " & "( " & gefunden & "" & _
          ")").ToString
        chb_abgearbeitet.Text = String.Concat("abgearbeitet " & "( " & _
        abgearbeitet & " )").ToString
        chb_ueberfuehrt.Text = String.Concat("Überführt " & "( " & ueberfuehrt _
        & " )").ToString
 
        'Status
        Dim status As Integer = gefunden + abgearbeitet + ueberfuehrt
        lbl_Anzahl_abgearbeitet.Text = status
 
        Dim gesamt As Integer = BS_Lagerliste.Count
 
        lbl_Anzahl_offen.Text = gesamt - status
    End Sub