' 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 = "Ohne Angabe"
                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, Now, _
                      d)
 
                    If (Now - d).Days = 0 Then
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                          "naechsteInventurDatum").Style.BackColor = _
                          Drawing.Color.Yellow  'Gelb
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                        "colBem").Value = "Inventur"     'Gelb
                    ElseIf (Now - d).Days < 0 Then
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                          "naechsteInventurDatum").Style.BackColor = _
                          Drawing.Color.Green   'green
                        InventartabelleDataGridView.Rows(rowIndex).Cells( _
                        "colBem").Value = calc_days     'green
                    ElseIf (Now - 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