Ausgabe aus Direktzeile mit Evaluate umsetzen
05.06.2008 00:38:00
Peter
Ich habe in einer bestimmten Zelle eine Formel eingesetzt, die mir das gewünschte Ergebnis liefert. Da eine ganze Spalte solcher Abfragen notwendig ist, habe ich im Direktbereich nach der Formel abgefragt:
?activecell.FormulaR1C1
und folgendes Ergebnis erhalten
=VLOOKUP(RC[9],eDaten,COLUMN(Q_Land),FALSE)
Das habe ich nun versucht mit Evaluate zu erreichen, wobei zNr die Zeilennummer gibt und Range("Land").Column die Spalte.
.Cells(zNr, Range("Land").Column) = Evaluate("VLOOKUP(RC[9],eDaten,COLUMN(Q_Land),FALSE)")
Als Rückgabe erhalte ich #WERT
Mir ist nicht klar, was hier nicht i.O. sein sollte.
Kann mir jemand weiterhelfen?
Danke, Peter