VBA VLookup zwei Kriterien

[Lucker11]

Hallo zusammen,

ich würde gerne einen vlookup mit zwei suchkriterien ausführen, wie ist das möglich? Kann mir da jemand helfen?

Liebe Grüße
Max

[steve1da]

Hola,

mit einer Formel, mit VBA....man könnte den Betreff mal googlen....

Gruß,
steve1da

[Lucker11]

Im VBA Code, habe ich schon gegoglet und nur inblattformeln gefunden und keinen vba code

[steve1da]

Fast 4000 Ergebnisse

[NobX]

Hallo Max,

das kannst Du nach diesem Schema machen:

Code:

=SVERWEIS(Suchkriterium1 & Suchkriterium2; WAHL(); In welcher Spalte ist das gesuchte Element; 0)
z. B. so: =SVERWEIS(E5&F5;WAHL({1.2};A:A&B:B;C:C);2;0)

Habe ich gegoogelt. Wird schön erklärt. Einfach suchen nach SVERWEIS mit 2 Suchkriterien.

Grüße
Norbert

[Lucker11]

Aber das ist dohc kein VBA code oder?

wie lautet

=SVERWEIS(E5&F5;WAHL({1.2};A:A&B:B;C:C);2;0)

denn als vba code?

[steve1da]

Die Antwort ist in den ersten Links die ich geschickt habe. Keine Lust zu suchen? Ist sogar ein Thread aus diesem Forum...

[Lucker11]

Dort wird eine Formel in eine Zelle eingetragen, aber das möchte ich nicht. Ich möchte das Ergebnis direkt in der Zelle haben durch einen VBA Code

[00202]

Hallo,

du könntest es mit "Evaluate" probieren:

Code:

Range("H1").Value = ActiveSheet.Evaluate("=VLOOKUP(E5&F5,CHOOSE({1,2},A1:A99&B1:B99,C1:C99),2,0)")

Das würde das Ergebnis im gerade aktiven Tabellenblatt in H1 eintragen. Du kannst natürlich statt "99" auch die letzte benutze Zelle ermitteln und in die Formel mit einbauen bzw. natürlich auch ein Tabellenblatt vorgeben.

Oder du nutzt das Ergebnis in einer Variablen:

Code:

DeineVariable = ActiveSheet.Evaluate("=VLOOKUP(E5&F5,CHOOSE({1,2},A1:A99&B1:B99,C1:C99),2,0)")

[NobX]

Hallo Max,

in Deiner Frage konnte ich nicht erkennen, dass Du einen VBA - Code suchst.

ich würde gerne einen vlookup mit zwei suchkriterien ausführen, wie ist das möglich? Kann mir da jemand helfen?

Grüße

Norbert