Suche Ignorieren der Groß&Kleinschreibung
21.10.2007 16:29:00
Louis
ich bräuchte noch mal eure Hilfe.
Mit folgendem Code, denn ich mir mit Hilfe der Suche zusammen basteln konnte, durchsuche ich mittels einer Textboxeingabe einen Tabellen Bereich. Klappt auch genauso wie ich es haben möchte bis auf das ignorieren der Groß- und Klein-Schreibung. Komme auch leider im Moment nicht mehr mit der Suche weiter.
Private Sub TextBoxSuche_Change()
Dim TBSV As String
Dim zelle As Range
Application.ScreenUpdating = False
TBSV = TextBoxSuche.Value
For Each zelle In Worksheets(1).Range("E5:E3000")
If zelle.Value Like TBSV & "*" Then
Exit For
End If
Next
Application.ScreenUpdating = True
If zelle Is Nothing Then
MsgBox "Nicht gefunden!"
Exit Sub
End If
zelle.Activate
TextBoxSuche.Activate
End Sub
Hat jemand eine Idee oder einen Ansatz?
Danke schon einmal im vorraus
Louis