Private Sub ShowTable_Uebersicht()
 
        Dim colNames() As String = {"Ausgaben", "Jänner", "Feber", "März", _
          "April", "Mai", "Juni", _
                                    "Juli", "August", "September", "Oktober", _
                                    "November", "Dezember"}
        Dim Ausg As Decimal
        Dim Monatsanfang As Integer
        Dim lDaten(12), lDatenreihe(12) As String 'in lDatenreihe(0) wird kein 
        ' Wert hineingeschrieben
        Dim table As New DataTable
 
        DGV1.Columns.Clear()
        '********************************************************
        '***********  DGV1 für die Übersicht adaptieren *********
        '********************************************************
 
 
        Dim dgvcol As New DataGridViewTextBoxColumn
        For j As Integer = 0 To 12
 
                    With dgvcol
                        .HeaderText = colNames(j)
                        .DataPropertyName = colNames(j)
                        .DefaultCellStyle.Alignment = _
                          DataGridViewContentAlignment.MiddleRight
                    End With
 
                    DGV1.Columns.Add(dgvcol)
        Next j
 
 
        table.Columns.Add(colNames(0), GetType(String))
        For i As Short = 1 To 12
            table.Columns.Add(colNames(i), GetType(String))
        Next
 
 
        Array.Clear(lDatenreihe, 0, 12)
        lDatenreihe(0) = "Summe:"
 
        For r As Integer = 0 To DGV1.Rows.Count - 2
            Array.Clear(lDaten, 0, 12)
 
            Monatsanfang = Array.IndexOf(Monate, DGV1.Item(4, r).Value)
 
            lDaten(0) = DGV1.Item(0, r).Value           'in data(0) wird der 
            ' Text der jeweiligen Ausgaben gespeichert
            Try
                Ausg = CDbl(DGV1.Item(2, r).Value)
            Catch ex As Exception
                Ausg = 0
                Status("Allgemeiner Fehler oder kein Wert vorhanden")
            End Try
 
 
            Select Case DGV1.Item(3, r).Value
                Case "täglich"
                    For x As Integer = 1 To 12
                        lDaten(x) = (Ausg * 12)
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
                Case "wöchentlich"
                    For x As Integer = 1 To 12
                        lDaten(x) = (Ausg * 30 / 7)
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
 
                Case "14tägig"
                    For x As Integer = 1 To 12
                        lDaten(x) = (Ausg * 30 / 14)
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
 
                Case "monatlich"
                    For x As Integer = 1 To 12
                        lDaten(x) = Ausg
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
 
                Case "zweimonatlich"
                    While Monatsanfang > 2
                        Monatsanfang -= 2
                    End While
                    For x As Integer = Monatsanfang + 1 To 12 Step 2
                        lDaten(x) = Ausg
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
 
                Case "vierteljährlich"
                    While Monatsanfang > 3
                        Monatsanfang -= 3
                    End While
                    For x As Integer = Monatsanfang + 1 To 12 Step 3
                        lDaten(x) = Ausg
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
                Case "halbjährlich"
                    While Monatsanfang > 6
                        Monatsanfang -= 6
                    End While
                    For x As Integer = Monatsanfang + 1 To 12 Step 6
                        lDaten(x) = Ausg
                        lDatenreihe(x) += CDbl(lDaten(x))
                    Next
                Case "jährlich"
                    lDaten(Monatsanfang + 1) = Ausg
                    lDatenreihe(Monatsanfang + 1) += CDbl(lDaten(Monatsanfang + _
                      1))
 
            End Select
            For i As Integer = 1 To 12
                lDaten(i) += " " & ChrW(&H20AC)
            Next
 
 
        Next r
        For i As Integer = 1 To 12
            lDatenreihe(i) += " " & ChrW(&H20AC)
        Next
        table.Rows.Add(lDatenreihe)
 
 
 
 
 
        DGV1.DataSource = table
    End Sub