Dim dt1 As New DataTable("Sprachenhäufigkeit")
        dt1.Columns.Add("Sprache", GetType(String))
        dt1.Columns.Add("Anzahl", 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("Anzahl") = d1.Count
            dt1.Rows.Add(dr1)
        Next
 
        DataGridView2.DataSource = dt1

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist