Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstFourDayWeek, _
                DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of String)("Station") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("Station") : df.Columns.Add("Count")
 
        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"

Zitat:

Ohne nähere Kenntnis Deiner Daten und deren Entstehung/Bedeutung kann man keine gezielten Hinweise geben.

Zitat:

Es muß die Dauer der täglichen (geplanten) Anlagen-Laufzeit einbezogen werden, ebenso ggf. die Zahl der Feiertage in jeder Woche oder evt. Produktion am Wochenende bzw. Wochen die z.T. in die Betriebsferien fallen. Erst daraus lassen sich die Produktionsminuten jeder Woche berechnen und in Beziehung zu der Summe der Störungsdauern einer Maschine setzen: Summe der Störungsdauern pro Woche > .05 * Produktionsminuten pro Woche = Warnung

  Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
           Globalization.CultureInfo.CurrentCulture.Calendar
        'Stoerdauer = Reihe.UGruppe.Sum(Function(f) f.Stoerdauer)
        'Minuten_Ausfallzeit = If(Störzeiten_Abfrage.Count > 0, 
        ' Störzeiten_Abfrage.ToList.Select(Function(x) x.Stoerdauer).Sum, 0)
        'Minuten_Ausfallzeit = BS_Maschinen_Liste.Where(Function(x) x.ID = 
        ' IDMaschine).Select(Function(x) x.Taktzeit).FirstOrDefault
        Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstFourDayWeek, _
                DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of String)("ArtderStörung") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("ArtderStörung") : df.Columns.Add("Count", GetType( _
          Integer))
 
        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"

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

        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

ArtderStörung	Count	Cum	Proz
sonstige	10	10	71,43
Mechanik	3	13	92,86
Elektrik	1	14	100

 Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
           Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstFourDayWeek, _
                DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of String)("ArtderStörung") Into Count()
 
        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("Proz") = Math.Round(CInt(row("Cum")) / sm * 100, 2)
            'entsprechend für die Spalte "Count"
        Next i
 
        If bs.Count <> 1 Then
            lbl_Stoerdaten_KW_Info.Text = String.Concat(bs.Count & " Einträge" & _
              "gefunden").ToString
        Else
            lbl_Stoerdaten_KW_Info.Text = String.Concat(bs.Count & " Eintrag" & _
              "gefunden").ToString
        End If
        'Daten in der DGV anzeigen
        dgv_Stoerdaten_Auswertung_KW.DataSource = bs
 
 
        With dgv_Stoerdaten_Auswertung_KW
            .Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnsMode.Fill
            .Columns(1).Width = 60
        End With
 
        With dgv_Stoerdaten_Auswertung_KW
            .EnableHeadersVisualStyles = False
            .ColumnHeadersDefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .ColumnHeadersDefaultCellStyle.BackColor = Color.DimGray
            .ColumnHeadersDefaultCellStyle.ForeColor = Color.FloralWhite
            .BackgroundColor = Color.LightGray
            .Font = New Font("Consolas;", 9.5, FontStyle.Regular)
            .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
            .ColumnHeadersHeight = 38
            .ColumnHeadersHeightSizeMode = _
              DataGridViewColumnHeadersHeightSizeMode.DisableResizing
            .RowHeadersVisible = False
            '.GridColor = System.Drawing.Color.DarkBlue
            .GridColor = System.Drawing.Color.DarkGray
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        End With
        With dgv_Stoerdaten_Auswertung_KW.DefaultCellStyle
            .SelectionForeColor = Color.OldLace
            .SelectionBackColor = Color.Olive
            .BackColor = Color.LightGray
            .ForeColor = Color.Black
            .Font = New Font("Consolas;", 8.0, FontStyle.Regular)
        End With
        With dgv_Stoerdaten_Auswertung_KW.AlternatingRowsDefaultCellStyle
            .SelectionForeColor = Color.OldLace
            .SelectionBackColor = Color.Olive
            .BackColor = Color.WhiteSmoke
            .ForeColor = Color.Black
            .Font = New Font("Consolas;", 8.0, FontStyle.Regular)
        End With
        'Ende Auswertung

 Private Function GetFreq1(ByVal week As Integer, _
       year As Integer, masch As Integer) As DataTable
        Dim Minuten_Ausfallzeit As Integer
 
        'Chart anzeigen
        With Chart2
            .ChartAreas.Clear()
            .Series.Clear()
            .Legends.Clear()
            .AntiAliasing = AntiAliasingStyles.All
            .TextAntiAliasingQuality = TextAntiAliasingQuality.High
            .BorderWidth = 2
            .Titles.Clear()
            .Titles.Add("Titel")
            .Titles(0).Text = tbx_SZ_Datumsbereich.Text
            .Titles(0).Font = New Font("Thahoma", 10, FontStyle.Regular)
            .Titles(0).ForeColor = Color.Blue
            .Titles(0).BorderColor = Color.Transparent
            .Titles(0).BackColor = Color.Transparent
            .Titles(0).Alignment = System.Drawing.ContentAlignment.BottomCenter
            .Titles(0).ToolTip = ""
            .DataSource = bs
            'hier könnte man auch mittels IF Bedingung 3D <> 2D umschalten
            .ChartAreas.Add("Base").Area3DStyle.Enable3D = False
 
            'X - Achse
            With .ChartAreas("Base").AxisX
                .Title = "Bezeichnung"
                .TitleForeColor = Color.Black
                .IsLabelAutoFit = True
                .LabelStyle.Font = New Font("Arial", 10)
                .LabelStyle.ForeColor = Color.Black
                .LabelStyle.Angle = -45
                .Interval = 1
                .LineColor = Color.DarkGray
                .MajorGrid.LineColor = Color.DarkGray
            End With
            'Y - Achse 
            With .ChartAreas("Base").AxisY
                .Title = "Anzahl"
                .LabelStyle.Font = New Font("Arial", 10)
                .TitleForeColor = Color.Black
                .LabelStyle.ForeColor = Color.Black
                .LineColor = Color.Black
                .MajorGrid.LineColor = Color.DarkGray
            End With
 
            .Series.Add("Störtyp")
 
            With .Series("Störtyp")
                .XValueMember = "ArtderStörung"
                .YValueMembers = df.Columns(1).ColumnName
                .CustomProperties = "PixelPointWidth = 25"
                .BorderWidth = 3
                .MarkerBorderWidth = 5
                .ChartType = SeriesChartType.Column
                .IsValueShownAsLabel = True
                .ChartArea = "Base"
            End With
 
 
 
 
            .Legends.Add("Default")
            .Legends("Default").Alignment = StringAlignment.Center
            .Legends("Default").Docking = Docking.Top
            .Legends("Default").BackColor = Color.Transparent
            .Legends("Default").ForeColor = Color.Black
        End With
        Return df
    End Function

Dim dx As New DataTable
With dx.Columns
    .Add("ArtderStörung", GetType(String))
    .Add("Count", GetType(Integer))
    .Add("Cum", GetType(Integer))
    .Add("CumPerc", GetType(Double))
End With
 
'Die Daten
With dx.Rows
    .Add("sonstige", 10)
    .Add("Mechanik", 3)
    .Add("Elektrik", 1)
End With
 
bs.DataSource = dx
bs.Sort = "Count Desc" 'Häufigkeit fallend sortieren
 
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"))
   row("cum") = sm
Next i
 
'Kumulierte Werte in Prozentanteile umrechnen
For i As Integer = 0 To bs.Count - 1
   Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
   row("CumPerc") = Math.Round(CInt(row("Cum")) / sm * 100, 2)
Next i
 
With cht
   .DataSource = bs
   .ChartAreas.Add("Base")
   .Titles.Add("Pareto Demo")
 
   'Einrichtung der Achsen
   With cht.ChartAreas("Base")
      .AxisX.Interval = 1
 
      .AxisY.Title = "Häufigkeit"
      .AxisY.Maximum = sm
      .AxisY.MajorGrid.Enabled = False
 
      .AxisY2.Title = "Cum. Häufigkeit /Prozent"
      .AxisY2.MajorGrid.Interval = 10
      .AxisY2.Maximum = 100
   End With
 
   'Zuordnung der Tabellenspalten zu Datenserien
 
   .Series.Add("Störungsart")
   With .Series("Störungsart")
      .ChartType = SeriesChartType.Column
      .XValueMember = "ArtderStörung"
      .YValueMembers = "Count"
      .YAxisType = AxisType.Primary
   End With
 
   .Series.Add("Cum")
   With .Series("Cum")
      .ChartType = SeriesChartType.Line
      .XValueMember = "ArtderStörung"
      .YValueMembers = "CumPerc"
      .YAxisType = AxisType.Secondary
      .BorderWidth = 2
   End With
End With