Private Sub Suche()
 
        Dim suchwort As String = TextBox1.Text
 
        For Each r As DataGridViewRow In _
          Form_PlanningGuide.BCHHDataGridView.Rows
            For Each c As DataGridViewCell In r.Cells
                If c = suchwort Then 'mach was   -> er sucht in allen 
                ' Spalten jeder Zeile nach deinem Suchwort
 
                End If
            Next
        Next
 
    End Sub