Dim FirstDate As Date
        Dim nextdate As Date
 
        Dim IntervalType As String
        Dim Number As Integer
        Dim Msg As String = Nothing
        Dim dt As DataTable = HB.Details
        '##########
        FirstDate = CDate(BuchungsdatumTextBox.Text).ToString
        Number = nud_Buchungswiederholung.Value                  'Buchung 
        ' monatlich wiederholen
        IntervalType = "m"
        For i As Integer = 1 To Number
            nextdate = DateAdd(IntervalType, i, FirstDate)
 
            ' Neue DRV
            Dim DRV As HB.DetailsRow = Nothing
 
            If dt.Select("Buchungsdatum = '" & nextdate & "'").Count = 0 Then
                'Datarow 
                DRV = HB.Details.NewDetailsRow
 
                DRV("Buchungsdatum") = nextdate.ToShortDateString
                DRV("Buchungsart") = BuchungsartTextBox1.Text.ToString
                DRV("Kategorie") = KategorieTextBox1.Text.ToString
                DRV("Kommentar") = KommentarTextBox.Text.ToString
                DRV("Betrag") = CDbl(BetragTextBox.Text).ToString
            End If
 
            HB.Details.AddDetailsRow(DRV)
            Me.Validate()
            BS_Details.EndEdit()
            'speichern 
            saveDB()
        Next