- Anwendung.match in VBA

Bin ich mit "Anwendung.match" zu finden, wenn Spalte AD ein Blatt enthält eine "1".

Aber immer wenn ich versuche meinen code "Else" - Bedingung ist immer Wahr. Obwohl ich erwarte, dass es um den "Wenn" - Bedingung, da die Spalte ANZEIGE hat eine Zelle mit einem Wert "1".

Die Werte der Zellen in Spalte AD sind meist Ergebnisse einer Formel, außer AD1, die den string "Überprüfen Sie, ob Titile&Autor-Match", und AD2, die den Wert "0".

Was ist das problem. Was ist die Lösung?

Ich hoffe du kannst eine Lösung vorschlagen, die würde ich noch gebrauchen ".match" - Methode. Dies ist, weil aus meinem Verständnis ".match" - Methode gibt die relative position des Spiels im Sortiment. Und ich Plane, verwenden Sie diesen Wert später in meinem code.

Private Sub CmdLocateDta_Click()

Dim SearchColumn As Integer

If Not IsError(Application.Match(1, "AD:AD", 0)) Then
    SearchColumn = Application.Match(1, "AD", 0)
    MsgBox "Data has been located." & vbNewLine & _
           "You can now input the Lending Information below."
Else
    MsgBox "There seems to be no such book in the Database." & _
            vbNewLine & "Please re-check your input."
End If

End Sub

InformationsquelleAutor Karen88 | 2017-05-24

  1. 4

    Müssen Sie, um den Bereich anzugeben, wo die Suche in beiden Partien. 

    Application.Match(1, ws.range("AD:AD"),0)

    wo ws ist dein Arbeitsblatt.

    Danke das ist mein problem gelöst.

    InformationsquelleAutor Max

  2. 2

    Das problem ist die Art und Weise Sie Application.Match.
    Es sollte wie folgt sein:

    If Not IsError(Application.Match(1, Range("AD:AD"), 0)) Then

    Sehen Sie mehr hier: https://msdn.microsoft.com/en-us/library/office/ff835873.aspx

    Danke das ist mein problem gelöst.
    Sie sind herzlich willkommen.

    InformationsquelleAutor Vityata

Schreibe einen Kommentar