'--- Variabeln setzen
        Dim Statusabgearbeitet As Double
        Dim Statusnichtabgearbeitet As Double
        Dim Wert1 As System.Data.EnumerableRowCollection(Of TPMMeldungRow)
        Dim Wert2 As System.Data.EnumerableRowCollection(Of TPMMeldungRow)
 
        'Wert1 ermitteln
        Wert1 = From Reihe In Me.TPMDB.TPMMeldung
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                   Reihe.erledigt = True
     Select Reihe
        Dim anzahlWert1 As Integer = Wert1.Count
 
        'Wert2 ermitteln
        Wert2 = From Reihe In Me.TPMDB.TPMMeldung
        Where Reihe.RowState <> DataRowState.Deleted AndAlso _
        Reihe.erledigt = False
     Select Reihe
        Dim anzahlWert2 As Integer = Wert2.Count
 
 
 
        Dim Gesamtwert As Integer = anzahlWert1 + anzahlWert2
 
        '------ Prozent ausrechnen
        Statusabgearbeitet = anzahlWert1 / Gesamtwert * 100
        Statusnichtabgearbeitet = anzahlWert2 / Gesamtwert * 100
        '------- Anzeigen in Label auf der Form
        ''Label215.Text = String.Format("{0:0.00} %", Statusabgearbeitet) & "" & _
          "erl."
        ''Label216.Text = String.Format("{0:0.00} %", Statusnichtabgearbeitet) _
        & " i.B."
        ''Label217.Text = Gesamtwert.ToString & " Meld."