sverweis als ergebnis und nicht als formel
koenig.kl@arcor.de
der unten stehende code schreibt mir das ergebnis eines sverweises mit zwei wenn bedingungen rein. gibt es eine möglichkeit nur das ergebnis in die zelle schreiben zu lassen?
Sub ErmittelnPreise()
aktZeile = 10
Dim Sp1 as String
Sp1="A"
Do While Not IsEmpty(Cells(aktZeile, Sp1))
'prüft, ob der Standardpreis abgefragt wird
With Cells(aktZeile, Sp10)
.FormulaLocal = _
"=WENN(K" & aktZeile & " =""St.pr."";SVERWEIS(" & Sp1 & aktZeile & ";Tab_Massnahmen;10; _
FALSCH);WENN(K" & aktZeile & " =""Mr.pr."";SVERWEIS(" & Sp1 & aktZeile & ";Tab_Massnahmen;11;FALSCH)))"
aktZeile = aktZeile + 1
End With
Loop
End Sub
Anzeige