Dim dtHelp As New DataTable
        Dim i As Integer = 0
 
        With dtHelp
            With dtHelp
                Dim IDCol As DataColumn = dtHelp.Columns.Add("ID", Type.GetType( _
                  "System.Int32"))
                IDCol.AllowDBNull = False
                IDCol.Unique = True
 
                .Columns.Add("Seriennummer", Type.GetType("System.String"))
                .Columns.Add("Fahrgestellnummer_Status", Type.GetType( _
                  "System.String"))
                .TableName = "Help"
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dtHelp.Columns("ID")
        dtHelp.PrimaryKey = primaryKey
 
        For Each r As DataRow In dt1.Rows
 
            If Not isdbnull(r("Fahrgestellnummer")) Then
                Dim newRow As DataRow = dtHelp.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Fahrgestellnummer_Status") = r("Fahrgestellnummer") & _
                  "" & _
                  "- " & r("Status") & " [SN- " & r("Seriennummer") & " ]"
 
                dtHelp.Rows.Add(newRow)
 
            End If
 
        Next
 
        Dim dtErgebnis As New DataTable
 
        dtErgebnis.Columns.Add("Fahrgestellnummer_Status_NIO_Links_Rechts_SN")
        'dtErgebnis.Columns.Add("Count")
 
        Dim query = (From dr In (From d In dtHelp.AsEnumerable Select New With _
          {.FS = d("Fahrgestellnummer_Status")}) Select dr.FS Distinct)
 
        For Each colName As String In query
 
            Dim cName = colName
 
            Dim cCount = (From row In dtHelp.Rows Select row Where row( _
              "Fahrgestellnummer_Status").ToString = cName).Count
 
            dtErgebnis.Rows.Add(colName)
 
        Next