ich lasse mir zuerst die Formel in eine Variable lesen und anschließend lasse ich die Formel wieder in eine Zelle schreiben. Nun wird in der neuen Zelle die Formel als Text angezeigt und nicht mehr der Wert. Das Format der Zelle ist auf (numberformat="general").
Mein Code:
Sub Auslesen()
Dim c_a as string
c_a = ActiveSheet.Cells(3,1).FormulaR1C1
'Der Wert für c_a = "=WENN('01'!$R$13"";'01'!$R$13;"")"
'Der Text der Zelle lautet "5"
ActiveSheet.Cells(4,1).FormulaR1C1 = c_a
'Der Text der Zelle lautet nun "=WENN('01'!$R$13"";'01'!$R$13;"")"
End Sub
Ich stehe jetzt völlig auf dem Schlauch, was hier passiert!
Gruß,
Oliver.