Makro für Zellenberechnung

[schane65]

Hallo zusammen!

Ich möchte in einer Zelle (z.b. B4) einen Wert eintragen. In Zelle B6 soll dieser Wert dann ausgeworfen werden. Jetzt möchte ich aber in Zelle B4 einen neuen Wert eintragen und dieser soll zu dem alten Wert hinzu addiert und dann als Gesamtwert in Zelle B6 ausgeworfen werden. Mit Formeln geht das nicht. Man sagte mir, mit einem Makro wäre das evtl. möglich.

Weiß jemand, wie?


Danke schon mal


Gruß Andreas

[gripslund]

Hej,

Code: Alles auswählen

	oCellVon=oSheet.getCellByPosition(1,3)
	oCellNach=oSheet.getCellByPosition(1,5)
		xx=oCellVon.GetValue
		yy=oCellNach.GetValue
                                    if yy=0 then
                                                yy=xx
                                    else if yy>0 then
                                                yy=yy+xx
			endif
                        oCellNach.SetValue(yy)

Nur ein Vorschlag.

[schane65]

Danke,

ich werde es mal ausprobieren.


Gruß Andreas