' Bemerkung setzen wenn Datum (Termin) nicht eingetragen oder überschritten 
        ' wurde bzw. Termin in Tabelle veraltet ist
        Try
            For rowIndex = 0 To InventartabelleDataGridView.RowCount - 1
                Dim s As String = InventartabelleDataGridView.Rows( _
                  rowIndex).Cells("naechsteInventurDatum").Value.ToString
                Dim d As Date
 
                If InventartabelleDataGridView.Rows(rowIndex).Cells( _
                  "naechsteInventurDatum").Value IsNot Nothing Then
                    InventartabelleDataGridView.Rows(rowIndex).Cells( _
                    "colBem").Value = "Angabe Inventur?"
                End If
                If Date.TryParseExact(s, "dd.MM.yyyy", New _
                  Globalization.CultureInfo("de-DE"), _
                  Globalization.DateTimeStyles.None, d) Then
                    ' korrekt
                    Dim calc_days As Integer = DateDiff(DateInterval.Day, _
                      Today, d)
 
                    If (Today - d).Days = 0 Then
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                          "naechsteInventurDatum").Style.BackColor = _
                          Drawing.Color.Yellow           'Gelb
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                        "colBem").Value = "heute Inventur"
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                        "colBem").Style.BackColor = Drawing.Color.Cyan          _
                                          'Cyan
                    ElseIf (Today - d).Days < 0 Then
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                          "naechsteInventurDatum").Style.BackColor = _
                          Drawing.Color.Green            'green
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                        "colBem").Value = "Inventur in " & calc_days & " Tage"  _
                                          'green
                    ElseIf (Today - d).Days > 0 Then
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                          "naechsteInventurDatum").Style.BackColor = _
                          Drawing.Color.Red              'red
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                        "colBem").Value = "abgelaufen"                          _
                                          'red
                    Else
 
                    End If
                End If
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try