Dim summe As Integer = 0
        For i As Integer = 0 To DGV2.Rows.Count - 1
            If DGV2.Rows(i).Cells(2).Value IsNot DBNull.Value Then
                summe += CInt(DGV2.Rows(i).Cells(2).Value)
            End If
        Next
        Dim ts As New TimeSpan(0, 0, summe)
        lbl_Anzahl_Anwesenheit.Text = "Anwesend gesamt: " & _
          DGV2.Rows.Count.ToString
        lbl_Minuten_Anwesenheit.Text = String.Concat("Arbeitszeit in [Min.] " & _
        summe & " [Min]").ToString
        lbl_ddHHMM_Anwesenheit.Text = "Minuten in dd.HH:MM " & String.Format( _
        "{1:00}.{2:00}:{3:00}", ts.Days, ts.Hours, ts.Minutes, ts.Seconds)