Office: sverweis umschreiben auf vba

Hallo, ich bins,
könnte mir bitte jemand folgenden SVERWEIS in einen vba-Code umschreiben?
=WENN(K5>0;SVERWEIS(G5&" "&H5;Bestand!$V:$AU;26;0);)
Falls das mit der Zusammenführung nicht klappt oder zu aufwendig ist, kein Prolem, dann mache ich die Zusammenführung in Spalte "u" manuell. Der Befehl würde dann so aussehen:
=WENN(K5>0;SVERWEIS(U5;Bestand!$V:$AU;26;0);)
Vielen Dank.
Gruß
Rasful

 

Hallo!

Ungetestet:

If Range("K5") > 0 Then
Range("??") = Sheets("Bestand").Range("V:V").Find(Range("G5") & " " & Range("H5")).Offset(0, 25)
Else
??
End If

 

Hallo schatzi,
vielen Dank für die Umschreibung. Ich werde diesen Code testen. Falls es nicht so funktioniert, wie ich es gedacht habe, melde ich mich nocheinmsl bei dir. Nochmals
VIELEN DANK

Gruß
Rasful

 

Hallo schatzi,
leider komtt immer eine Fehlermeldung:
"Laufzeitfehler 91
Objektvariable oder With-Variable nicht festgelegt"
Was auch immer das bedeuten mag, keine Ahnung.
Ich habe die Umschreibung in eine Prozedur kopiert, funzt nicht. Habe ich da vielleicht was falsch gemacht?
Gruß
Rasful

 

Hallo!

Die Fehlermeldung bekomme ich nur, wenn der Wert nicht gefunden wurde.
Das kann man aber abfangen:

Code:

If Range("K5") > 0 Then
If Sheets("Bestand").Range("V:V").Find(Range("G5") & " " & Range("H5")) Is Nothing Then
MsgBox "nicht gefunden"
Else
Range("??") = Sheets("Bestand").Range("V:V").Find(Range("G5") & " " & Range("H5")).Offset(0, 25)
End If
Else
'??
End If