Private Sub DGV_Eintraege_CellFormatting(sender As System.Object, e As _
    System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
    DGV_Eintraege.CellFormatting
        For i As Integer = 0 To DGV_Eintraege.Rows.Count - 1
 
            If CBool(DGV_Eintraege.Rows(i).Cells(9).Value) = False Then
                DGV_Eintraege.Rows(i).DefaultCellStyle.BackColor = Color.Lime
                DGV_Eintraege.Rows(i).DefaultCellStyle.ForeColor = Color.Black
            End If
 
        Next i
    End Sub

   Private Sub btn_DS_anlegen_Click(sender As Object, e As EventArgs) Handles _
     btn_DS_anlegen.Click
        ' markiere_Pflichtfelder()
        Datensatz_Edit()
        EintraegeBindingSource.AddNew()
           End Sub