Hallo Leute,
ich habe ein Problem damit, ein Sverweis in VBA zu erstellen. Kurz zum Sverweis: Es soll nach einer Nummer (=aendnr), gesucht werden. Diese steht im Tabellenblatt "check" . Nach dieser Nummer soll in einer Suchmatrix A bis E (komplett, damit die Funktion unabhängig von einer fest definierten Matrix ist und damit immer gilt) im Tabellenblatt "buffer" gesucht werden. Dann soll eben die entsprechende Spalte ausgegeben werden, hier die 5. Spalte im Tabellenblatt "buffer". Ich habe das ganze noch in eine For-Schleife integriert, die dann Zeile für Zeile im Tabellenblatt "check" durchgeht. Ich habe dazu folgenden Code geschrieben, welcher aber nicht funktioniert. Es kann sein, dass das völliger Quark ist (bin VBA Anfänfer), ich hoffe aber man kann verstehen, was ich meine.
Dim aendnr as String 'da diese Nummer auch Buchstaben enthält
For j= 2 to lastrow 'lastrow ist der Zeilenindex der letzten def. Zeile in "check"
aendnr = check.cells(j,2)
check.Cells(j, 5).Formula = "=VLookup(aendnr, buffer!A:E,5,false)"
Next
In einem zweiten Schritt müsste ich dann noch einen IsError integrieren, aber zuerst sollte mal der Sverweis funktionieren.
Vielen Dank schn mal!!
|