Private Sub DGV_CellFormatting(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
  DataGridView1.CellFormatting
Select Case True
 Case erledigt.Count
  Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb( _
    112, 222, 115)
 Case verfristet.Count
  Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb( _
    235, 101, 82)
End Select
End Sub

zelle.Style.BackColor = Color.Bisque