tbx_Eingabe_Feld.Text = tbx_Eingabe_Feld.Text.Trim
        Dim strSuchwort = tbx_Eingabe_Feld.Text
        'Pflichtfeld prüfen
        If String.IsNullOrEmpty(strSuchwort) Then : Fehler_Pflichtfeld_Eingabe( _
          "Eingabe:") : Return : End If
        'Suchen in DGV
        Dim searchIndex = 0
        DataGridView1.ClearSelection()
        For Each row As DataGridViewRow In DataGridView1.Rows
 
            For Each cell As DataGridViewCell In row.Cells
                If cell.Value.StartsWith(strSuchwort, _
                  StringComparison.InvariantCultureIgnoreCase) Then
 
                    cell.Selected = True
 
                    DataGridView1.CurrentCell = DataGridView1.SelectedCells(1)
 
                    'Exit For
                End If
            Next
        Next
        DataGridView1.Visible = True