Formel in Zelle per Makro
28.10.2002 04:15:07
Thomas
ich schon wieder.
Ich möchte per Makro eine Formel in eine Zelle schreiben. Die Aufgabe ist folgende:
In einer Userform soll in Textfeld1 der Tag (26) und in Textfeld2 der Monat (03) eingetragen werden. In Textfeld3 soll dann die komplette Formel stehen und dann in eine Zelle eingetragen werden. Das zusammensetzen der Formel klappt gut, das eintragen in die Zelle aber leider nicht. Die Formel wird zwar in die Zelle geschrieben aber nicht als solche erkannt (also nur als Text). Hier der Code mit dem ich es probiert habe:
If IsEmpty(TextBox28) Or IsEmpty(TextBox29) Then
Sheets("Einstellungen").[D37] = "Datum 1"
Else
Dim Formel
Formel = "=DATUM(JAHR(P8);" & TextBox29.Value & ";" & TextBox28.Value & ")"
TextBox36.Value = Formel
Sheets("Einstellungen").[D37].FormulaR1C1 = TextBox36
End If
Kann mir da jemand helfen?
Danke, Thomas