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
freue mich auf eine antwort klaus