Private Function GetFreq1(year As Integer) As DataTable
        Dim dt As DataTable = HBDatenbankDS.Kontodetails
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
              Where year = row.Field(Of Date)("Buchungsdatum").Year _
              Group By art = row.Field(Of String)("Kategorie") Into Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("Kategorie", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Perc", GetType(Double))
        End With
        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"
 
        Dim sm As Integer = 0
        For i As Integer = 0 To bs.Count - 1
            Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
            'Häufigkeiten kumulieren
            sm += CInt(row("Count"))
        Next i
 
        'Werte in Prozentanteile umrechnen
        For i As Integer = 0 To bs.Count - 1
            Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
            row("Perc") = Math.Round(CInt(row("Count")) / sm * 100, 2)
        Next i
 
        Dim _Anzahl As Integer
        _Anzahl = df.AsEnumerable().Sum(Function(row) row.Field(Of Integer)( _
          "count"))
 
        'Daten in der DGV anzeigen
        DGV1.DataSource = bs
        'den Teil musste ich entfernen da größer 5 KB
        'Chart anzeigen
        'den Teil musste ich entfernen da größer 5 KB
 
        Return df
    End Function