Private Sub dataGridView1_CellFormatting(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
        Handles dgv.CellFormatting
 
        If dgv.Columns(e.ColumnIndex).Name.EndsWith("_T") And Not IsDBNull( _
          dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then
            Dim aendDatum As Date = CDate(Split(dgv.Rows(e.RowIndex).Cells( _
            e.ColumnIndex).Value).GetValue(0) & " " & Split(dgv.Rows( _
            e.RowIndex).Cells(e.ColumnIndex).Value).GetValue(1))
            Dim wochen As Integer = DateTime.op_Subtraction(aendDatum, _
            heute).TotalDays \ 7
            Dim spalte As String = Replace(dgv.Columns( _
            e.ColumnIndex).HeaderText, "_T", "")
            If IsDBNull(dgv.Rows(e.RowIndex).Cells(spalte).Value) And wochen < _
            52 Then
                dgv.Rows(e.RowIndex).Cells(spalte).Style.BackColor = Color.Coral
            ElseIf wochen < 5 Then
                dgv.Rows(e.RowIndex).Cells(spalte).Style.BackColor = _
                  Color.LightSkyBlue
            ElseIf wochen < 52 Then
                dgv.Rows(e.RowIndex).Cells(spalte).Style.BackColor = _
                  Color.LightBlue
            End If
            dgv.Columns(e.ColumnIndex).Visible = False
 
        ElseIf (dgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Visible = False) Then
            Exit Sub
 
        ElseIf ...