Dim dt As DataTable
        dt = dt2.Copy
 
        Dim rows = dt.Select("[Differenz zu CALCAN (%)] <> 100 and" & _
          "[Differenz zu CALCAN (%)] <> 0", "[Differenz zu CALCAN (%)] DESC")
        Dim rows2 = rows.Cast(Of DataRow)().Take(5)
 
        With Chart1
            .Series.Clear()
            .ChartAreas("ChartArea1").Area3DStyle.Enable3D = False
            .ChartAreas("ChartArea1").AxisX.Title = "Team"
            .ChartAreas("ChartArea1").AxisY.Title = "Prozent"
            .ChartAreas("ChartArea1").AxisX.TitleFont = New Font("Arial", 22, _
              FontStyle.Bold)
            .ChartAreas("ChartArea1").AxisY.TitleFont = New Font("Arial", 22, _
            FontStyle.Bold)
            .Palette = DataVisualization.Charting.ChartColorPalette.Pastel
        End With
 
        Chart1.DataBindCrossTable(rows2, "Team", "Team", "Differenz zu CALCAN (" & _
          "%)", "Label=Differenz zu CALCAN (%)")
        For Each cs In Chart1.Series
            cs.ChartType = _
              DataVisualization.Charting.SeriesChartType.RangeColumn
            cs.IsXValueIndexed = True
        Next
 
        Chart1.ChartAreas("ChartArea1").AxisX.Interval = 1
        Chart1.AlignDataPointsByAxisLabel()