Private Sub BS_Wasser_ListChanged(sender As Object, e As EventArgs) Handles _
   BS_Wasser.ListChanged
        If BS_ZaehlerWasser_Liste.Count > 0 Then
            'Wasser W22007880
            Dim minStandW22007880 = (From drv In HB.Wasser Where drv.RowState _
              <> DataRowState.Deleted Select drv.W22007880).Min
            Dim maxStandW22007880 = (From drv In HB.Wasser Where drv.RowState _
            <> DataRowState.Deleted Select drv.W22007880).Max
 
            ZaehlerstandW22007880_start.Text = minStandW22007880
            ZaehlerstandW22007880_ende.Text = maxStandW22007880
            'Wasser W22007881
            Dim minStandW22007881 = (From drv In HB.Wasser Where drv.RowState _
              <> DataRowState.Deleted Select drv.W22007881).Min
            Dim maxStandW22007881 = (From drv In HB.Wasser Where drv.RowState _
            <> DataRowState.Deleted Select drv.W22007881).Max
 
            ZaehlerstandW22007881_start.Text = minStandW22007881
            ZaehlerstandW22007881_ende.Text = maxStandW22007881
            'Wasser W22007885
            Dim minStandW22007885 = (From drv In HB.Wasser Where drv.RowState _
              <> DataRowState.Deleted Select drv.W22007885).Min
            Dim maxStandW22007885 = (From drv In HB.Wasser Where drv.RowState _
            <> DataRowState.Deleted Select drv.W22007885).Max
 
            ZaehlerstandW22007885_start.Text = minStandW22007885
            ZaehlerstandW22007885_ende.Text = maxStandW22007885
            'kleinste Datum, grösste Datum ermitteln
            Dim minDatum = (From drv In HB.Wasser Where drv.RowState <> _
              DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim maxDatum = (From drv In HB.Wasser Where drv.RowState <> _
            DataRowState.Deleted Select drv.Ablesedatum).Max
            'Anzeigen in Label
            lbl_Ablesedatum_W22007880_Max.Text = maxDatum.ToShortDateString
            lbl_Ablesedatum_W22007880_Min.Text = minDatum.ToShortDateString
            'Verbrauch berechnen
            Wasser1Verbrauch.Text = CDbl(ZaehlerstandW22007880_ende.Text) - _
              CDbl(ZaehlerstandW22007880_start.Text)
            Wasser2Verbrauch.Text = CDbl(ZaehlerstandW22007881_ende.Text) - _
            CDbl(ZaehlerstandW22007881_start.Text)
            Wasser3Verbrauch.Text = CDbl(ZaehlerstandW22007885_ende.Text) - _
            CDbl(ZaehlerstandW22007885_start.Text)
            '------------------------------------------------------------------
            ' --------
            Dim diff As TimeSpan = Date.Now.Subtract(maxDatum)
            Label_letzteEingabe.Text = String.Concat("letzte Eingabe vor: " & _
              diff.Days & " Tagen").ToString
            '------------------------------------------------------------------
            ' --------
            'Berechnung Verbrauch pro Tag in m³
            Dim x As Double = DateDiff(DateInterval.Day, minDatum, maxDatum)
            ResultLabelWVT1.Text = x
            RGWInfoboxZaehlerstand.Caption = String.Concat("Zaehlerstand vom: " _
              & minDatum).ToString
 
            Dim VBKubikW1 As Double = Double.Parse(Wasser1Verbrauch.Text) / x
            Dim VBKubikW2 As Double = Double.Parse(Wasser2Verbrauch.Text) / x
            Dim VBKubikW3 As Double = Double.Parse(Wasser3Verbrauch.Text) / x
 
            ResultLabelW1.Text = String.Format("{0:0.00} m³", VBKubikW1) & "" & _
              "pro Tag"   'Double.Parse(Wasser1Verbrauch.Text) / x
            ResultLabelW2.Text = String.Format("{0:0.00} m³", VBKubikW2) & "" & _
            "pro Tag"
            ResultLabelW3.Text = String.Format("{0:0.00} m³", VBKubikW3) & "" & _
            "pro Tag"
            '------------------------------------------------------------------
            ' --------
            'Berechnung Verbrauch pro Tag in Liter
            Dim VBKubiLW1 As Double = VBKubikW1 * 1000
            Dim VBKubiLW2 As Double = VBKubikW2 * 1000
            Dim VBKubiLW3 As Double = VBKubikW3 * 1000
 
            ResultLabelWT1.Text = String.Format("{0:0.00} Liter", VBKubiLW1) & _
              " pro Tag"
            ResultLabelWT2.Text = String.Format("{0:0.00} Liter", VBKubiLW2) & _
            " pro Tag"
            ResultLabelWT3.Text = String.Format("{0:0.00} Liter", VBKubiLW3) & _
            " pro Tag"
        Else
            lbl_Ablesedatum_W22007880_Max.Text = "keine Daten"
            lbl_Ablesedatum_W22007880_Min.Text = "keine Daten"
            ZaehlerstandW22007880_start.Text = String.Empty
            ZaehlerstandW22007880_ende.Text = String.Empty
            ZaehlerstandW22007881_start.Text = String.Empty
            ZaehlerstandW22007881_ende.Text = String.Empty
            ZaehlerstandW22007885_start.Text = String.Empty
            ZaehlerstandW22007885_ende.Text = String.Empty
 
            RGWInfoboxZaehlerstand.Caption = String.Concat("Noch keine" & _
              "Zaehlerstaende erfasst").ToString
        End If
 
 
    End Sub