If BS_Stromdetails_Liste.Count > 0 Then
            'firstdate, lastdate ermitteln
            Dim firstdate = (From drv In HBDatenbankDS.tblStrom Where _
              drv.RowState <> DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim lastdate = (From drv In HBDatenbankDS.tblStrom Where _
            drv.RowState <> DataRowState.Deleted Select drv.Ablesedatum).Max
 
            Dim C1 As Double = GetConsum(BS_Strom, firstdate, lastdate, _
              "Ablesedatum", "S1258882")
 
            Dim Meldung As String = "Status:"
            Dim x As Double = DateDiff(DateInterval.Day, firstdate, lastdate)
 
            Meldung = "Zeitraum: " & firstdate & " bis " & lastdate & " ~ ( " & _
              x.ToString & " ) Tage" & vbCrLf & vbCrLf
 
            'Die Nummern der Zähler in ein Array schreiben
            Dim counters(2) As Integer
 
            counters(0) = 1258882
 
            'Den Verbrauch gemäß des Strom-Zähler in ein Array schreiben:
            Dim consums(2) As Double
            Dim csum As Double
 
            For i As Integer = 0 To counters.Length - 3
                consums(i) = GetConsum(BS_Strom, firstdate, lastdate,
                       "Ablesedatum", "S" & counters(i).ToString)
            Next i
 
            'Schleife für  Meldung
            For i = 0 To counters.Length - 3
                Meldung &= "Zähler " & counters(i).ToString &
                 " Stromverbrauch: " & consums(i).ToString("0.00") & " kwh" & _
                   vbCrLf
                csum += consums(i) 'Summe der Verbräuche
            Next i
 
            Meldung &= vbCrLf & "Mittlerer täglicher Verbrauch: "
            Meldung &= (csum * 1 / (lastdate - firstdate).TotalDays).ToString( _
              "0.00") & " kwh"
 
            MessageBox.Show(Meldung, "Auswertung:")
Else
 
        End If