SVERWEIS durch VBA ersetzen

Hallo!
Ich würde gerne einen SVERWEIS in einer relativ langen Tabelle (+500 Zeilen) durch eine VBA Lösung ersetzen, da das ganze extreeeem langsam und groß wird
Vorgegeben (hab ich nicht geschrieben) in der Tabelle war bisher:


=WENNFEHLER(SVERWEIS(J3;'https://iweof...K/[Availability Check.xlsx]CDC'!$F:$K;6;FALSCH);"0")  Link hab ich mal gekürzt

Ich habe also in meiner Spalte J Zeilen mit Artikelnummern, die in der Availability Check.xlsx in Spalte F stehen.
Zugehörigig zu den Nummern in Spalte F steht in Spalte K die Verfügbare Menge der Artikel.
Diese Menge soll in meiner Datei in der jeweiligen Zeile in Spalte N ausgegeben werden, wennn nichts gefunden wird sollte eine 0 eingettragen werden.
Ich habe mir schon einige Beispiele zu vlookup angesehen, komm aber nicht richtig klar
Danke für eure Vorschläge!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Juli,
nun, du könntest deine Formel mit dem Makrorecorder aufzeichnen:
Beide Mappen öffnen, dann Makrorecorder starten, über "Formeln" - "Funktion einfügen" - "Sverweis", dort die ganzen Sachen eintragen, die notwendig sind, Aufzeichnung stoppen, Code ansehen.
Dadurch erhälst du die folgende Formel (ich habe jetzt mal nur 8 Zeilen befüllt):


ActiveCell.FormulaR1C1 = Range("N1:N" & i).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],[Mappe1.xlsx]Tabelle1!R1C6:R8C11, 6, 0),0)"

Dürfte bei dir nicht viel anders aussehen.
Um das variabel zu gestalten, bastelst du noch eine "For-Next"-Schleife drum und baust deine Zeilenvariable in die Formel mit ein und fertig. (Okay, dafür hättest du wahrscheinlich wirklich Hilfe gebraucht, findet man aber auch im Netz)
Sieht bei mir am Ende so aus:


Sub SVerweis()
Dim i As Long
For i = 2 To ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row
Range("N1:N" & i).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],[Mappe1.xlsx]Tabelle1!R1C6:R" & i & "C11, 6, 0),0)"        'Variabel nach unten bis zur letzten gefüllten Zeile
'Range("N1:N" & i).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],[Mappe1.xlsx]Tabelle1!R1C6:R8C11, 6, 0),0)"               'fester Bereich, hier bis K8
Next i
End Sub

R1C6:R1C11 bedeutet, dass in deiner Quellmappe im Bereich F1 bis K8 gesucht wird.
Wie gesagt, um den Suchbereich nach unten hin variabel zu halten, muss man die Formel ein bisschen umbauen.
Das o. g. Makro musst du in deiner Zielmappe abspeichern. Ich habe es als eigenes Modul hinzugefügt.
"Mappe1" musst du durch den richtigen Namen der Quelldatei ersetzen.
Gruß Pierre

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread