'Alle "Tabe bis..."-Einträge einen Tag abziehen.
With ListView1
Dim geb As Date
Dim i As Integer
geb = ListView1.ListItems(i).ListSubItems(7).Text
If Date = ListView1.ListItems(i).ListSubItems(7).Text Then
    For i = 1 To ListView1.ListItems.Count
        Select Case ListView1.ListItems(i).ListSubItems(6).Text
        Case "1"
        ListView1.ListItems(i).ListSubItems(6).Text = "0"
        Case "2"
        ListView1.ListItems(i).ListSubItems(6).Text = "1"
        Case "3"
        ListView1.ListItems(i).ListSubItems(6).Text = "2"
        Case "4"
        ListView1.ListItems(i).ListSubItems(6).Text = "3"
        End Select
    Next i
End If
End With