Hallo wertes Forum,
ich hoffe ihr koennt mir bei folgendem Problem weiterhelfen:
Die Suche:
Set Cerca = Sheets("database_prodotti").Range("A:A").Find(Codice_Prodotto)
If Cerca Is Nothing Then
MsgBox "Il codice digitato non c'è nel database."
End If
funktioniert einwandfrei, nur in einem Spezialfall leider nicht.
Z.B. bei Eingabe von 3 tut der Code so, wenn in der Datenbank der Datensatz 3/47 aber NICHT 3 vorhanden ist, dass auch 3 vorhanden ist. Die MsgBox wird dann nicht aufgerufen.
Die Variablen sind wie folgt definiert:
Dim Codice_Prodotto As Variant
Dim Cerca As Range
Codice_Prodotto wird ueber InputBox durch den Anwender definiert:
Codice_Prodotto = Application.InputBox("Digita Codice_Prodotto : ", "Scelta Codice_Prodotto")
Vermute mal, das liegt am Sonderzeichen "/" ? Wie muss ich die Variable definieren, dass auch "/" erkannt wird?
Kann mir da jemand einen Denkanstoss verpassen?
Vielen Dank vorab fuer euer Interesse und Hilfe!
Gruesse,
Jan