Excel VBA Find-funktions Problem

Hallo Leute,

Habe eine Rechnung in Excel erstellt die in Spalte A  Artikelnummern
enthält, die Anzahl der Artikeln, gebe ich mit einem Makro das die Find Funktion Anwendet ein.

Folgendes Problem:

Die Artnr. (62) ist nicht Vorhanden aber dafür die Nr.(162)

wenn ich jetzt die Nr. 62 eingebe kommt keine Fehlermeldung sonder
die Find Funktion springt auf die Nr. 162

Hier ein Teil meines Makros mit der Find Funktion

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

On Error GoTo Art_fehler

->Daten eintragen
Eingabe:
Do
    ArtNr = InputBox(Getränke Artikel Nummer eingeben ?, Art.Nr.GETRÄNKE, , 2000, 2800)

If ArtNr = Then GoTo wiederholen:

    ActiveSheet.Unprotect
    Range(A9:A151).Find(ArtNr).EntireRow. _
    Cells(Eingabe).Select
    menge = CSng(InputBox(Lieferung Anzahl Kisten eingeben ?, LIFERMENGE, , 2000, 2800))


ich hoffe es kann mir jemand helfen.

Danke Grüße isostar

Hallo isostar,

ersetz mal ...Find(ArtNr).... gegen ...Find(ArtNr, LookAt:=xlWhole)....

Gruß Matjes

Hallo Matjes,

vielen Dank für die schnelle Hilfe 

klappt prima. 

Herzlichen Dank

isostar