Match-Funktion? VBA funktioniert nicht richtig

Ich habe folgenden code und ich "name" in den Zellen B11 , B19 und B25 und ich erwarte ein Ergebnis von 19 oder 25 mit dem code, aber es gibt Y=1. Könnte mir jemand sagen, was ist das problem?.

Sub mat()

Y = Application.Match("name", ActiveSheet.Range("B19:B30"), 0)
MsgBox Y

End Sub
InformationsquelleAutor user2703472 | 2013-11-17
  1. 4

    Entsprechend der Dokumentation zum SPIEL:

    MATCH gibt die position der übereinstimmenden Wert in lookup_array, nicht der Wert selbst.

    und mit 0als optionales drittes argument (match_type):

    Wenn match_type 0 ist, ENTSPRECHEN, findet der erste Wert, der exakt gleich dem Suchkriterium ist. Lookup_array können in beliebiger Reihenfolge sein.

    Deshalb ist die zurückgegebene 1bezieht sich auf die position auf B19im array Range("B19:B30") und das Codebeispiel ist in der Tat verhält wie erwartet.

    • danke für die Klarstellung..
    InformationsquelleAutor jpw
  2. 1
    Application.Match("name", ActiveSheet.Range("B19:B30"), 0)

    Die MATCH-Funktion sucht nach einem angegebenen Element in einer Reihe von Zellen, und gibt dann die relative position des Objekts in der Palette

    Also das Parsen der parameter ActiveSheet.Range("B19:B30") bedeutet, dass B19 gleich relative position =1.

    InformationsquelleAutor Mark Fitzgerald
  3. 0

    hinzufügen slgn 

    Sub mat()
    Y = Application.Match(slng(range("a4").value), ActiveSheet.Range("B19:B30"), 0)
    MsgBox Y
End Sub

    ex2:

    Application.WorksheetFunction.Match(CLng(TextBox1.Text), sheet110.Range("B6:B" & ls), 0)
    InformationsquelleAutor ayadprof
Schreibe einen Kommentar