Private Sub Verbrauch_InnerhalbvonTagen()
        Dim Dauer_TotalMinuten As Double
 
        For Zeile As Integer = 0 To DGVStrom.Rows.Count - 1
            If Zeile = 0 Then
                DGVStrom.Rows(Zeile).Cells(6).Value = 0
                Dateneingabe = CDate(DGVStrom.Rows(Zeile).Cells(1).Value)
            Else
                Dim x As Double = DateDiff(DateInterval.Day, Dateneingabe, _
                  CDate(DGVStrom.Rows(Zeile).Cells(1).Value))
 
                DGVStrom.Rows(Zeile).Cells(6).Value = x.ToString
            End If
        Next Zeile
    End Sub