If BS_ZaehlerWasser_Liste.Count > 0 Then
            'firstdate, lastdate ermitteln
            Dim firstdate = (From drv In HB.Wasser Where drv.RowState <> _
              DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim lastdate = (From drv In HB.Wasser Where drv.RowState <> _
            DataRowState.Deleted Select drv.Ablesedatum).Max
            'Verbräuche ermitteln
            Dim C1 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
              "Ablesedatum", "W22007880")
            Dim C2 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
            "Ablesedatum", "W22007881")
            Dim C3 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
            "Ablesedatum", "W22007885")
 
 
            Dim Meldung As String = "Status:"
 
            Meldung = "Erfassungszeitraum: " & firstdate.ToShortDateString & "" & _
              "bis " & lastdate.ToShortDateString & vbCrLf & vbCrLf
 
            'Dann eine Schleife über ein Stringarray das die Zähler-Nummern 
            ' enthält
            'und ein Array, das die ermittelten Verbräuche enthält.
 
            Dim counters(2) As Double  'counters(0)="Zählernummer-22007880" usw 
            Dim consums(2) As Double  'Array mit den Verbräuchen c1, c2, c3
 
            counters = {22007880, 22007881, 22007885}
            consums = {C1, C2, C3}
 
            Dim csum As Double
 
            For i = 0 To counters.Length - 1
                Meldung &= "Zählernummer " & counters(i) & " Verbrauch: " & _
                  consums(i).ToString("0.00") & " m³" & vbCrLf
                csum += consums(i) 'Summe der Verbräuche
            Next i
 
            Meldung &= vbCrLf & "Mittlerer täglicher Verbrauch: "
            Meldung &= (csum * 1000 / (lastdate - _
              firstdate).TotalDays).ToString("0.00") & " L."
 
 
            MessageBox.Show(Meldung, "Auswertung:")
 
        Else
            Meldung_Wassertabelle()
        End If