Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
   Button1.Click
        Dim Restzeit As Integer = 480
        Dim Datum As Date
 
        For Each satz In AblageDB.Notizen
            If satz.ToDoEintrag > Datum Then
                Restzeit = 480
                Datum = satz.ToDoEintrag
            End If
            Restzeit -= satz.ToDoRestzeit
            satz.ToDoRestzeit = Restzeit
        Next
 
    End Sub