dgv_Auswertung.Rows.Clear()
 
        Dim Abfrage = From Eintrag In LagerDB.Lagerliste
                     Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                       Eintrag.INMAXIMO = True _
                     AndAlso Not IsDBNull(Eintrag.Artikelbezeichnung) _
                     AndAlso Not IsDBNull(Eintrag.Artikelnummer) _
                     AndAlso Not IsDBNull(Eintrag.MAXIMO)
                     Order By Eintrag.MAXIMO
                     Order By Eintrag.Artikelbezeichnung
                     Order By Eintrag.Artikelnummer
                     Order By Eintrag.USERNAME
                     Group By Art = Eintrag.MAXIMO Into UGruppe = Group
 
        Dim Benutzer As String
 
        Dim ue As LagerlisteRow
        Dim AnzMaximo, AnzMaximoGesamt As Integer
 
        For Each Reihe In Abfrage
            AnzMaximo = Reihe.UGruppe.Count
            AnzMaximoGesamt += AnzMaximo
 
            ue = Reihe.UGruppe.First
 
            Dim rowBenutzer = BenutzerDB.Benutzer.First(Function(f) f.ID = _
              ue.USERID)
 
            If Not rowBenutzer Is Nothing Then
 
                Benutzer = rowBenutzer.Benutzername
                dgv_Auswertung.Rows.Add({ue.Standort, ue.Kostenstelle, _
                  ue.Artikelbezeichnung, ue.Artikelnummer, ue.MAXIMO, _
                  ue.USERNAME, Reihe.UGruppe.Count})
            End If
        Next
 
        lbl_Anzahl_Gesamt.Text = String.Concat("Auswertung: Es wurden " & _
          AnzMaximoGesamt & " Maximo Nummern ermittelt!").ToString