Private Sub Verbrauch_InnerhalbvonTagen()
        For Zeile As Integer = 0 To DGVStrom.Rows.Count - 1
            If Zeile = 0 Then
                DGVStrom.Rows(Zeile).Cells(6).Value = 0
            Else
                Dim Dateneingabe As Date = CDate(DGVStrom.Rows(Zeile).Cells( _
                  1).Value)
                Dim Dauer_TotalMinuten = (CDate(DGVStrom.Rows(Zeile).Cells( _
                1).Value) - Dateneingabe).TotalMinutes
                Dim Gesamtdauer As TimeSpan
                Gesamtdauer = TimeSpan.FromMinutes(Dauer_TotalMinuten)
 
 
                DGVStrom.Rows(Zeile).Cells(6).Value = Gesamtdauer.Days
            End If
        Next Zeile
    End Sub