Suchmaschine
08.07.2004 11:15:24
Mark
ich habe in diesem Forum eine sehr gute Suchmaschine gefunden:
Sub suchen()
Dim SB As Variant
SB = InputBox("Wonach suchen?")
On Error GoTo ende
Cells.Find(What:=SB & "*", lookAt:=xlWhole).Activate
Exit Sub
ende:
MsgBox SB & " nicht gefunden! ", 64, "teile mit..."
End Sub
Ich möchte aber, daß sie in allen blättern nach dem eingegebenen Begriff sucht. Die Datei (in der man suchen mußt) besteht aus einer Anzahl von Blättern, die immer verschieden ist und die immer verschiedenen Namen haben.
Wie kann man das Problem lösen?
Vielen Dank
Mark