''' <summary>Zeilen, die den Suchwert enthalten, werden markiert</summary>
    ''' <param name="grid">das zu durchsuchende Grid</param>
    ''' <param name="sSuchWert">der zu suchende Wert</param>
    ''' <returns>die Zahl der markierten Zeilen (-1 bei Fehler)</returns>
    Private Function SucheWertundMarkiereZeile(ByVal grid As DataGridView, _
                                               ByVal sSuchWert As String) As _
                                               Integer
 
        Dim marked As Boolean, count As Integer = 0
 
        With grid
            Try
                For i As Integer = 0 To .Rows.Count - 1
                    With .Rows(i)
                        marked = False
                        For j As Integer = 0 To .Cells.Count - 1
                            With .Cells(j)
                                If Not .Value Is Nothing _ 
                                    AndAlso Not IsDBNull(.Value) Then
 
                                    marked = (.Value.ToString = sSuchWert)
 
                                End If
                                If marked Then count += 1 : Exit For
                            End With
                        Next j
                        .Selected = marked
                    End With
                Next i
                Return count
            Catch ex As Exception
                Return -1
            End Try
        End With
    End Function