Suchmaschine
09.07.2004 08:21:50
MArk
diese tolle Suchmaschine habe ich gestern im Forum gefunden:
Die funktioniert perfekt, ich möchte aber nur, daß sie Klein-Großschreibung nicht beachtet.
Und z.b. wenn der eingegebene Suchbegriff 123PA lautet und in meiner Tabelle ein 123 PA steht, findet sie den nicht.
Kann mir jemand bitte dabei hlfen?
Vielen Dank
Mark
Sub SucheZellen()
Dim S As String
Dim Z As Range
Dim WS As Worksheet
S = InputBox("Bitte geben Sie den Suchbegriff ein")
If S = "" Then Exit Sub
S = "*" & S & "*" 'es werden auch Zellen angezeigt, die noch mehr als den Suchstring enthalten
For Each WS In ActiveWorkbook.Worksheets
For Each Z In WS.UsedRange.Cells
If Z.Text Like S Then
WS.Activate
Z.Select
If MsgBox("Weitersuchen nach """ & S & """?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
End If
Next Z
Next WS
End Sub