Formel anhängen
12.07.2006 12:52:23
AndreasB
Mein Problem:
Mit folgendem Makro wird eine Formel in die leere aktive
Zelle eingetragen:
Sub Formel1()
Dim a, f, Formel
a = 10
f = 16
Formel = "=(" & f & "/10)^2*PI()/4*100/" & a
ActiveCell = Formel
Selection.NumberFormat = "0.00"
End Sub
Meine Frage: Ich möchte die Formel welche in die Zelle durch
obiges Makro eingetragen wurde erweitern. Ich möchte am
Ende der bestehenden Formel eine neue Formel anhängen.
Wie kann ich vorgehen? Kann mir jemand weiterhelfen?
Sub Formel2()
Dim a, f, Formel
a = 20
f = 14
die Formel in der aktiven Zelle soll mit
Formel = "=(" & f & "/10)^2*PI()/4*100/" & a
addiert werden
Selection.NumberFormat = "0.00"
End Sub
1000Dank im Voraus uns schöne Grüße
Andreas