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