Excel VBA: Wenn gleich nicht zu, dann zeigen Fehlermeldung

Question

Kann nicht herausfinden, was mit dem Code nicht stimmt.

Ich habe einen Code, wo ich überprüfen muss, ob in bestimmten Blatt bestimmte Produkte ID vor einer Bestellung gefunden werden können.

Private Sub Pardot_Click() 

Dim xlRange As Range 
Dim xlCell As Range 
Dim xlSheet As Worksheet 
Dim valueToFind As String 

valueToFind = pardID 
Set xlSheet = ActiveWorkbook.Worksheets("Noliktava") 
Set xlRange = xlSheet.Range("A1:A500") 

For Each xlCell In xlRange 
    If xlCell.Value <> valueToFind Then 
     MsgBox ("This product wasn't found in the database - ID: " & pardID.Text) 
     Exit Sub 
    End If 
Next xlCell 

End Sub

Grundsätzlich ich starten Sie die Userform und Art der ID (dh 1) in das Feld ein und klicken Sie auf „OK“ oder was auch immer, wenn die ID nicht im Bereich gefunden werden kann (ID: 1) Ich möchte, dass der Fehler Msg angezeigt wird.

Code funktioniert, wenn ich <> zu = ändern, aber das ist nicht das erforderliche Ergebnis.

Answer 1

Ohne den Code zu sehr zu ändern und wahrscheinlich etwas Zeit zu sparen, verwenden Sie einfach CountIf(), anstatt jede Zelle im Bereich zu überprüfen.

Private Sub Pardot_Click() 

Dim xlRange As Range 
Dim xlCell As Range 
Dim xlSheet As Worksheet 
Dim valueToFind As String 

valueToFind = pardID 
Set xlSheet = ActiveWorkbook.Worksheets("Noliktava") 
Set xlRange = xlSheet.Range("A1:A500") 

If WorksheetFunction.CountIf(xlRange,valuetoFind) = 0 then 
    msgbox "This product wasn't found in the database - ID: " & parId.textEnd 
End If 

End Sub 

Hinweis: Diese für aussehen wird genau der Text der Benutzer eingefügt. Verwenden Sie Platzhalter, wenn es irgendwo in einer Zeichenfolge sein kann (zB Suche nach "Hund" in "doggone", "Hundefutter", "Hund")