Seite 1 von 1

Makro zum Eintragen von Formel in Zelle (Calc)

Verfasst: Di, 10.03.2009 11:31
von 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

Re: Makro zum Eintragen von Formel in Zelle (Calc)

Verfasst: Di, 10.03.2009 16:27
von tunix_xl
Hi MFG,
"formulalocal" als Stichwort für die Suche könnte dir weiterhelfen. Da steht einiges zu deinem Problem.
Gruß
t.

Re: Makro zum Eintragen von Formel in Zelle (Calc)

Verfasst: So, 15.03.2009 19:57
von 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