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