Übergabe von Variablen in SVERWEIS in VBA

Habe ich diesen code:

currName = "string" 'unused
cellNum = [VLOOKUP("string", '2012'!A:M, 13, FALSE)]

Aber ich brauche zu ersetzen "string" mit einer Variablen in VBA-code-Namen currName. Ich versuchte dies:

currName = "string" 'used
cellNum = [VLOOKUP(currName, '2012'!A:M, 13, FALSE)]

Was ist die richtige syntax? Wenn ich versuche den 2. Teil mit der Verwendung der variable, die Frage, die ich bin, immer ist es der Rücksendung bei ungültigen Daten (wie wenn ich die Eingabe wieder in eine Zelle, es ist #NAME?). currName ist einfach gleich "string". Es funktioniert gut, im ersten Beispiel ohne die variable verwendet wird.

  • Wo ist der rest des Codes? Es ist ziemlich unmöglich, herauszufinden, was falsch sein könnte (ich glaube 3 oder 4 Sachen), ohne zu sehen, wie die Variablen deklariert sind, etc.
  • Hinzugefügt; es ist nichts Komplexes, nur eine Zuordnung.
  • Siehe meine Antwort unten, und Lesen Sie @DougGlancy Bemerkungen für eine Erklärung, warum dein Ansatz scheitert, wenn Sie nicht mit einem string-literal in der Funktion.
  • Hatten Sie eine chance, um zu versuchen, meine Antwort unten?
InformationsquelleAutor JBurace | 2013-07-18
  1. 3

    Habe ich nicht gesehen eckigen Klammern, die in dieser Art und Weise vor. Normalerweise sind diese Verknüpfung für Range Objekte. Ich bin in der Lage zu replizieren und Ihre Fehler.

    Können Sie so etwas wie dieses, statt. Beide Zuordnungen zu cellNum Arbeit ohne Fehler:

    Sub Test2()
Dim wsFunc As WorksheetFunction: Set wsFunc = Application.WorksheetFunction
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
Dim rngLook As Range: Set rngLook = ws.Range("A:M")
Dim cellNum As Range
Dim currName As String

currName = "string" 'unused

Set cellNum = ActiveCell

cellNum = wsFunc.VLookup("string", rngLook, 2, False)

cellNum = wsFunc.VLookup(currName, rngLook, 2, False)

End Sub
    • FYI, Die eckigen Klammern sind eigentlich mehr eine Abkürzung für VBA ist Evaluate Funktion. Die arbeiten auch nicht in den OP, weil i nicht bewerten, um nichts in der Formel. +1 auf Ihre Antwort.
    • Ich sehe keine i im OP-Präparat?
    • Hoppla, das war meine vereinfachte Prüfung. Ich meinte die variable CurrName.
    • warum nicht? Ich denke, dass muss das root-problem in OP ' s Frage. Es ist eine Zuweisungsanweisung currName = "string" in der vorhergehenden Zeile. Warum sollte es nicht bewerten?
    • Denn es wäre, wie wenn man das ganze Formel in eine Zelle. CurrName macht keinen Sinn in diesem Kontext. Es gibt keine evaluation im Bewerten, in anderen Worten, er weiß nicht, dass CurrName ist eine variable, die auf "String". Wieder, es ist einfach so, wenn Sie eingegeben werden, die gesamte Formel in eine Zelle. Und du hast Recht, das ist die Wurzel der OP das problem.
    • Genial. Vielen Dank für die Klarstellung!
    • Ich kann nicht ganz verstehen, das Gespräch, aber ja, ich bin nicht auf der Suche für die überführung einer Formel in eine Zelle. Mein code soll eine Berechnung in der code-und nicht zu berühren, die Tabellenkalkulation.
    • Mein code nicht eine Formel in die Zelle. Es ist nur ein anderes Mittel, um Ihre Formel in Erinnerung. Das Endergebnis ist, dass die Zelle enthält die Auswertung, nicht die Formel. Cheers.
    • Ich bin immer noch nicht suchen, berühren Sie das Arbeitsblatt noch obwohl, dieser soll gespeichert werden, in eine VBA-variable am Ende. Der Punkt ist, dass es das finden der Position eines bestimmten Strings zur späteren Verwendung durch den code, so, warum würde es sein müssen, in eine variable.
    • also warum, fragte ich, um zu sehen, mehr von deinem code. In meinem Beispiel cellNum ist ein Range Objekt-variable. Dies machte Sinn für mich, in der Abwesenheit von Anzeichen für das Gegenteil, von Ihnen. Dies ist der Grund, warum es hilfreich ist, poste deine vollständigen code, und nicht nur den Teil, den Sie glaubst ist wichtig. Wenn cellNum ist ein Variant oder etwas anderes, es sollte noch in der Lage sein, dies zu akzeptieren Auswertung. Versuchen Sie es.
    • Aufgrund der sensiblen Natur der Arbeit, wo ich, die ich leider nicht einfach kopieren und einfügen mein code. Ich kann sagen, dass cellNum ist nicht oder auf die verwiesen wird, bevor der code, den ich eingefügt habe in meiner ursprünglichen Frage und zwar, ob das hilft. Solange der code ändert sich nicht alle Zellen (ich bin auf der Suche für die Berechnungen im code), das funktioniert für mich.
    • Was ist der typename des cellNum? Verstehst du nicht, wie wsFunc.VLookup(currName, rngLook, 2, False) verwendet werden kann, wie die Rechte Seite einer Zuweisungsanweisung verwenden, um Ihre cellNum variable?

    InformationsquelleAutor David Zemens
  2. 1

    Verwenden Sie die Evaluate Funktion. Die Formel ist eine Zeichenkette, so haben Sie zu verketten alles in einen string:

    cellNum = Evaluate("VLOOKUP(""" & currName & """, '2012'!A:M, 13, FALSE)")
    • Ich bin nicht mit der =VLOOKUP() syntax, könnte man übersetzen, dass in der Art, wie ich bin, es zu benutzen?
    • Haben Sie bemerkt, dass das Ergebnis, was man versucht ist "string"?
    • Aber keine Zellen in meinem Arbeitsblatt-Formeln, und der code scheint wie es ist und versuchen zum einfügen einer Formel in eine Zelle. Das ist nicht das, was ich Tue.
    • Sorry für die nicht undertanding genau, was Sie wollte, aber jetzt funktioniert es. Die Bewerten-Funktion macht das gleiche, was die Klammern, sondern nimmt einen string als parameter, so können Sie verketten wie in Antwort.
    • Ich bin noch immer der #NAME? Fehler, wenn ich dies versuchen. Sind Sie sicher, dass Sie nicht fehlt eine Reihe von Zitaten?
    • Natürlich, tut mir Leid. Der SVERWEIS nimmt einen string in Anführungszeichen.....Antwort aktualisiert wird und funktioniert.

    InformationsquelleAutor Daniel Möller
Schreibe einen Kommentar