Hallo und guten Tage,
ich brauche bei einem Problem bitte Eure Hilfe.
Und zwar lasse ich per VBA einen Zellwert gegen eine Formel ersetzen.
Dies funktioniert in einigen Blättern auch hervorragend.
In zwei Blätttern habe ich aber das Problem, dass anstatt der richtigen Formel die Formel im Format:
=IF('[06admin.xls]06admin'!R324C5=1,"Zinsaufwand",IF(ISERROR(VLOOKUP("Zinsaufwand",[06Menu.xls]language!R10C6:R5000C7,2,FALSE)),"Zinsaufwand",VLOOKUP("Zinsaufwand",[06Menu.xls]language!R10C6:R5000C7,2,FALSE)))
in die Zelle geschrieben wird.
Mein Code lautet:
wks.Cells(ze, sp).FormulaR1C1 = "=IF('[06admin.xls]06admin'!R324C5=1,""" & zellwert & """,IF(ISERROR(VLOOKUP(""" & zellwert & """,[06Menu.xls]language!R10C6:R5000C7,2,FALSE)),""" & zellwert & """,VLOOKUP(""" & zellwert & """,[06Menu.xls]language!R10C6:R5000C7,2,FALSE)))"
Was muss ich tun, damit die Formel richtig in meiner Zelle steht?
Danke Euch schonmal
Steffen Schmerler