Hallo,
Ich möchte den Zelleninhalt (string) mit dem Wert der Variable "listenwert" (string) absuchen und in einer Variable "resultat" darstellen. 10 Spalten weiter soll nur das Suchwort erscheinen.
Dafür benutze ich den Code:
zelleninhalt = Worksheets("Sheet1").Cells(y, x).Value
listenwert = Worksheets("Sheet2").Cells(1, 2).Value
resultat = Application.WorksheetFunction.Search(listenwert, zelleninhalt)
If Not listenwert = "#VALUE!" Or "#Value!" Then
Worksheets("Sheet1").Cells(y, x + 10).Value = Right(zelleninhalt, Len(zelleninhalt) - resultat)
Dabei bekomme ich jedoch die Fehlermeldung:
' Laufzeitfehler 1004: Die Search-Eigenschaft des WorksheetFunction Objektes kann nicht zugeordnet werden.'
Was hat die Fehlermeldung zu bedeuten?
Worin liegt mein Fehler?
Wie kann ich meine Idee dennoch umsetzen?
Gruß, Karl