Makro zum Eintragen von Formel in Zelle (Calc)

[MFG]

moin,

ich hab nen Steuerelement Listenfeld, das aus nem anderen Tabellenblatt den Inhalt ausliest und dann das ausgewählte in ne Zelle schreibt

ich möchte nun mit nem Makro diese Zelle auslesen und ne wenn-funktion dran knüpfen
d.h.
wenn A1 = produkt 1, dann schreibe in B1 "formel X", sonst
wenn A1 = produkt 2, dann schreibe in B1 "formel Y", sonst
usw.

kann mir das mal eben jemand tippsen? ^^

oder muss ich das genauso tippen

sub formel
if A1=produkt 1 then
B1=a+b+c else
if A1=produkt 2 then
usw.
?
kommt mir fast zu einfach vor

thx

[tunix_xl]

Hi MFG,
"formulalocal" als Stichwort für die Suche könnte dir weiterhelfen. Da steht einiges zu deinem Problem.
Gruß
t.

[achimgr]

Hallo, so:

sub Formel
pSheet=ThisComponent.sheets.getByName("Tabelle2")
thisComponent.Sheets(1).getcellrangebyName("B60").formulalocal = "=WENN(B59=1;""Ja"";""Nein"")"
end sub

Nur noch anpassen
(Sheets(1) bedeutet: die zweite Tabelle -0 ist die erste - doppelte Anführungszeichen beachten)

gruß achim