Case 2 'ÜS-NR
        Mldg = "Bitte Suchbegriff eingeben"   ' Aufforderung festlegen
        Titel = "ÜS Nr. Suchen"   ' Titel festlegen.
        Wert1 = InputBox(Mldg, Titel)
    If Wert1 = "" Then GoTo ErrHandler2
    Suchbegriff = UCase$(Trim$(Wert1))
    For I = 1 To Grid.Rows - 1
    If InStr(1, UCase$(Grid.TextMatrix(I, 4)), Suchbegriff) > 0 Then
        Grid.Row = I
        Grid.Col = 0
        Grid.RowSel = I
        Grid.ColSel = 11
        Grid.TopRow = I
    Exit For
    End If
    Next
    Exit Sub
ErrHandler2:
    Exit Sub