Private Sub txt_Schnellsuche_Change()
Dim Suche_nach_nummer As Boolean
    With Grid_Main
        erg = .FindItem(Trim(txt_Schnellsuche.Text), 1, 1, False)
        If erg > 0 Then
            .Row = erg
            zeile_wechseln (erg)
        End If
    End With
End Sub