Evaluate anstelle Formel eintragen u. Wert übern.?
26.05.2008 16:27:49
Peter
Ich wollte nachfolgende Formel mittels Evaluate in VBA berechnen und gleich die Werte in die Zellen eintragen.
.Cells(zNr, Range("deutsch").Column).Value = Evaluate ("=IF(ISERROR(LOOKUP(2,1/(valor&sprache=RC2&R1C),emittent)),"" - -"",LOOKUP(2,1/(valor&sprache=RC2&R1C),emittent))")
Da ich dies nicht schaffte, trage ich vorerst Formel in die Zelle und übernehme dann das Ergebnis als Wert.
valor, sprache und emittent sind jeweils Spaltenbereiche mit gleichviel Zellen.
.Cells(zNr, Range("deutsch").Column).FormulaR1C1 = "=IF(ISERROR(LOOKUP(2,1/(valor&sprache=RC2&R1C),emittent)),"" - -"",LOOKUP(2,1/(valor&sprache=RC2&R1C),emittent))"
.Cells(zNr, Range("deutsch").Column).Value = .Cells(zNr, Range("deutsch").Column).Value
Kann ich diese Auswertung mit Evaluate machen und wenn ja, was muss ich ändern?
Danke für eine Rückmeldung.
Peter
Anzeige