Dim dt1 As New DataTable("Sprachenhäufigkeit")
        dt1.Columns.Add("Sprache", GetType(String))
        dt1.Columns.Add("Zahl", GetType(Integer))
 
        For Each d1 In From d As DataRow In dt.AsEnumerable() Group d By _
          Sprache = d.Field(Of String)(6) Into g = Group _
          Select Sprache, g.Count
            Dim dr1 As DataRow = dt1.NewRow
            dr1("Sprache") = d1.Sprache
            dr1("Zahl") = d1.Count
            dt1.Rows.Add(dr1)
        Next
 
        DataGridView1.DataSource = dt1
        With Chart1
            .Series.Clear()
            .Series.Add("default")
            .Series("default").ChartType = _
              DataVisualization.Charting.SeriesChartType.Pie
            .DataSource = dt
            .Series("default").XValueMember = "Sprache"
            .Series("default").YValueMembers = "Zahl"
        End With