Excel 2010-index-match-VBA

Alles versucht und kann nicht scheinen, um dieses zu erhalten. Versucht zu ersetzen die Werte in Zeile B (SiteTag) ein Arbeitsblatt mit den richtigen sitetag aus einer index-match in einem anderen Arbeitsblatt.

Arbeitsblatt(Site_Visit)
SiteTag
AL27
AS26
GBEM4
...

Arbeitsblatt(Websites)
SiteTag Projekt Name
203AL27 AL27
203AS26 AS26
201GBEM4 GBEM4
... ...

Muss ich ersetzen die Werte SiteTag in Sheets("Site_Visit") mit den entsprechenden SiteTag aus Sheets("Sites").

Jetzt habe ich einfach versucht, den code zu platzieren, der richtige index-Wert in eine variable in die ich stellen werde, da der Wert für jede Zelle, und führen Sie es in einer Schleife. Aber für das Leben von mir nicht bekommen können, bekommen Sie einen Wert. Dies ist, was ich versucht habe für die variable (alles wurde erklärt).

ST_Cells2 = Application.WorksheetFunction.Index("Sites!A2:A34", Application.WorksheetFunction.Match("Site_Visit!B2", "Sites!B2:B34", 0), 0)

Wo " - Seiten!A2:A34" ist die Reihe für den entsprechenden Wiederbeschaffungswert
"Sites_Visit!B2" ist die lookup-Wert
"Seiten!B2:B34" ist die lookup-Bereich

Ich bin immer ein Run Time error '1004' Unable to get the Match property of the WroksheetFunction class. Jemand irgendwelche Ideen?

InformationsquelleAutor Jason Barnes | 2011-09-28

  1. 4

    Den Index und Match-Funktionen erwarten Reicht, aber Sie schicken Sie strings. Der einfachste Weg, drehen Sie Zeichenfolgen in die Bereiche ist die Verwendung der Excel-Range-Funktion:

    st_cells2 = Application.WorksheetFunction.Index(Range("Sites!A2:A34"), Application.WorksheetFunction.Match(Range("Site_Visit!B2"), Range("Sites!B2:B34"), 0), 0)
    Someboddy du bist mein held. Ich habe dies für zwei Tage, und ich schwöre, ich habe versucht, die Range-Funktion an einem gewissen Punkt. Diese Total made my day! Danke.
    hi ich komme auf diese Frage zu haben, aber ich habe mehrere Kriterien. Wie kann ich das erreichen?
    Ich habe nicht die Verwendung von Excel für eine ganze Weile jetzt(ich Lebe jetzt in der Linux-Welt und genießen Sie jeden Augenblick), so dass ich bin zu haben, um eine Umleitung zu Microsoft ' s Artikel über die Angelegenheit - support.microsoft.com/en-us/kb/59482

    InformationsquelleAutor Idan Arye

  2. 0

    Ich hatte den gleichen Fehler, aber es ist ok, wenn ich geändert in "Anwendung" indstead von WorksheetFunction:

    Cells(12, 12).Value = Application.Index("Sheet1!B1:9", 2)

    Irgendwie läuft die Funktion aus der Anwendung direkt gearbeitet...
    /K

    InformationsquelleAutor Klas

Schreibe einen Kommentar