Private Sub RemoveFromMassenList(ByVal MarkID As String)
        Try
            If MassenList.Count > 0 Then                    ' wenn es schon 
            ' Einträge gibt
                For i As Integer = MassenList.Count - 1 To 0 Step -1
                    If MassenList(i).MarkID = MarkID Then MassenList.RemoveAt(i)
                    Exit For
                Next
            End If
            If mDT.Rows.Count > 0 Then
                For i As Integer = 0 To mDT.Rows.Count - 1
                    If mDT.Rows(i)("MarkID") = MarkID Then
                        mDT.Rows(i).Delete()
                        Exit For
                    End If
                Next
            End If
        Catch
            Dim Fehler As String = Err.Description
        End Try
    End Sub

If mDT.Rows.Count > 0 Then
                For i As Integer = 0 To mDT.Rows.Count - 1
                    If mDT.Rows(i)("Doc") = sqlDocID AndAlso mDT.Rows(i)( _
                      "PgID") = sqlPgID AndAlso mDT.Rows(i)("Bez") = _
                      Bezeichnung Then
                        MasseFound = True
                        Call UpdMassenRow(i)
                        Exit For
                    End If
                Next
            End If

Danke für die Hilfe

Gruß Christian