Dim difference As TimeSpan
        Dim Termin As Date
        Dim today As Date = today
 
        Try
            For rowIndex = 0 To InventartabelleDataGridView.RowCount - 1
                Dim theDate As Date = DateTime.ParseExact( _
                  InventartabelleDataGridView.Rows(rowIndex).Cells( _
                  "naechsteInventurDatum").Value.ToString, "dd.MM.yyyy", _
                  CultureInfo.InvariantCulture)
 
                difference = today.Subtract(Termin)
                If InventartabelleDataGridView.Rows(rowIndex).Cells( _
                  "naechsteInventurDatum").Value IsNot Nothing Then
                    InventartabelleDataGridView.Rows(rowIndex).Cells( _
                    "colImg").Value = Signale_20x20.Images(3)  'Warndreieck
                ElseIf difference.Days <= 5 Then
                    InventartabelleDataGridView.Rows(rowIndex).Cells( _
                      "colImg").Value = Signale_20x20.Images(1)  'Gelb
                ElseIf difference.Days > 5 And difference.Days <= 10 Then
                    InventartabelleDataGridView.Rows(rowIndex).Cells( _
                      "colImg").Value = Signale_20x20.Images(2)  'red
                Else
 
                End If
 
 
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try