Dim df As New DataTable
        df.Columns.Add("ArtderStörung") : df.Columns.Add("Count", GetType( _
          Integer)) : df.Columns.Add("Cum", GetType(Double)) _
                                        : df.Columns.Add("Proz", GetType( _
                                        Double))
 
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC" 'Häufigkeiten fallend sortieren
 
        Dim sm As Integer = 0 'Summations-Variable
 
        For i As Integer = 0 To bs.Count - 1
            'Zugriff auf sortierte Zeilen über die Bindingsource
            Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
            'Häufigkeiten kumulieren
            sm += CInt(row("Count"))
            row("Cum") = sm
        Next i
 
        ' ''in Prozentanteile umrechnen
        ''For i As Integer = 0 To bs.Count - 1
        ''    Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
        ''    row("Cum") = Math.Round(CInt(row("Cum")) / sm * 100, 2)
        ''    'entsprechend für die Spalte "Count"
        ''Next i