Private Sub CheckBoxMonatsAnzeige_CheckedChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles ChbMonat.CheckedChanged
 
        'Datagridview für die Monatsübersicht aufbauen
 
        Dim columnNames() As String = {"Ausgaben", "Jänner", "Feber", "März", _
          "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", _
          "November", "Dezember"}
        Dim DGV2 As New DataGridView
        Dim OBJ() As String = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
 
        DGV2.Columns.Clear()
 
       '13 Spalten erzeugen mit Headertexte
        For mon As Integer = 0 To 12
            Dim datacell As New DataGridViewTextBoxColumn
            datacell.HeaderText = columnNames(mon)
            DGV2.Columns.Add(datacell)
        Next
 
       'alle Reihen erzeugen
        For r As Integer = 0 To DGV1.RowCount - 1
 
            For clear As Integer = 0 To 12
                OBJ(clear) = ""
            Next
 
            OBJ(0) = DGV1.Item(0, r).Value
 
 
 
            Select Case DGV1.Item(3, r).Value
                Case "täglich"
                    For x As Integer = 1 To 12
                        OBJ(x) = (DGV1.Item(2, r).Value * 12)
                    Next
                Case "wöchentlich"
                    For x As Integer = 1 To 12
                        OBJ(x) = (DGV1.Item(2, r).Value * 30 / 7).ToString
                    Next
 
                Case "14tägig"
                    For x As Integer = 1 To 12
                        OBJ(x) = (DGV1.Item(2, r).Value * 30 / 14).ToString
                    Next
 
                Case "monatlich"
                    For x As Integer = 1 To 12
                        OBJ(x) = (DGV1.Item(2, r).Value).ToString
                    Next
 
                Case "zweimonatlich"
                    For x As Integer = 1 To 12 Step 2
                        OBJ(x) = (DGV1.Item(2, r).Value).ToString
                    Next
 
                Case "vierteljährlich"
                    For x As Integer = 1 To 12 Step 3
                        OBJ(x) = (DGV1.Item(2, r).Value).ToString
                    Next
                Case "halbjährlich"
                    For x As Integer = 1 To 12 Step 6
                        OBJ(x) = (DGV1.Item(2, r).Value).ToString
                    Next
                Case "jährlich"
 
                    OBJ(1) = (DGV1.Item(2, r).Value).ToString
 
            End Select
 
            DGV2.Rows.Add(New Object() {OBJ(0), OBJ(1), OBJ(2), OBJ(3), OBJ(4), _
              OBJ(5), _
                                        OBJ(6), OBJ(7), OBJ(8), OBJ(9), OBJ( _
                                        10), OBJ(11), OBJ(12)})
 
 
        Next r
 
        DGV1.Columns.Clear() 'Löschen der Spalten des DGV1
        DGV1 = DGV2
        DGV1.Visible = True
        DGV1.Show()  
    End Sub