Hallo comunity,

ich versuche gerade ein such funktion in Excel 2000 zu implementieren (hab auch schon sehr viel Hilfe hier gefunden) und bin erneut an ein Problem gestoßen.

Die "find" funktion soll auch Werte finden die innerhalb eines längeren Strings sind. z.B. "Test" in "Testbericht". Wenn ich den Methodenaufbau richtig verstehe kann man das steuern duch den Parameter "LookAt" mit seinen Werten xlPart und xlWhole. Ich habe es jetzt auch in meinem Code probiert. Aber egal welchen Wert ich nehme, es macht keinen Unterschied. Ich hänge nochmal den entsprechenden Code mit an zum besseren Verständnis.

Sub Duplikate_finden()
Dim WS As Worksheet
Dim Zeile As Integer, Bereich As Integer
Dim Spalte As Integer
Dim such As String

On Error GoTo NixFind

such = _
InputBox(prompt:= _
"please enter the code you are looking for: ", _
Title:="", Default:="")
If such = "" Then
MsgBox ("searchcanceled!")
Exit Sub
Else
Debug.Print such
End If

For Each WS In Worksheets
WS.Activate
For Spalte = 1 To WS.Cells.Find("*", [A1], xlValues, xlPart, xlByColumns, xlPrevious).column ´ hier reagiert er nicht darauf wenn ich statt xlPart xlWhole schreibe

Bereich = WS.Cells(WS.Cells.Rows.count, Spalte).End(xlUp).row

For Zeile = Bereich To 1 Step -1
If WS.Cells(Zeile, Spalte) = such Then
WS.Cells(Zeile, Spalte).Select ´Gefundene Zeile wird markiert
Select Case MsgBox("Der Eintrag """ & WS.Cells(Zeile, Spalte).Value & """ befindet sich in Zelle " & WS.Cells(Zeile, Spalte).Address _
& Chr(13) & "Ist ihre Suche damit beendet?", vbYesNoCancel, "Sicherheitsabfrage...")
Case 2 ´Schaltfläche Abbruch
MsgBox ("Suche abgebrochen!")
Sheets("MainMenue").Select
Exit Sub
Case 6 ´Schaltfläche Ja
Exit Sub
Case 7 ´Schaltfläche Nein
End Select
End If
Next ´next row
Next ´next column
Next ´next sheet

MsgBox "Es wurden keine weiteren Einträge gefunden!", , "Info..."
Sheets("MainMenue").Select
Exit Sub

NixFind:
MsgBox "Es wurde kein Eintrag gefunden!", , "Info..."
Sheets("MainMenue").Select
End Sub