Dim c As DataColumn
        c = New DataColumn("Monat")
        dt.Columns.Add(c)
 
        Dim strMonat As String = "0"
 
        Dim r As DataRow
        Dim mbez As String
 
        For Each r In dt.Rows
            If r.Item("GebMonat").ToString <> strMonat Then
 
                mbez = fct_monbez(r.Item("gebmonat"))
 
                r = dt.NewRow()
                r.Item("Monat") = mbez
 
 
                dt.Rows.Add(r)
 
                strMonat = r.Item("gebmonat").ToString
 
            Else
                r.Item("Monat") = ""
 
            End If
        Next