Re: [de-users] Re: Calc: Formeln bei Einfügen automatisch kopieren

Hallo Helmut,

am 26.07.2012 um 13:33 Uhr schriebst Du:

> Hallo Franklin,
>
> Es ist ein Makro (nicht auf meinem Mist gewachsen, ich kann nicht
> nachvollziehen, woher ich es habe). Das Makro habe ich dann mit einem
> Symbol (Symbolleiste) verknüpft.

Vielen Dank .... vielleicht kann man's ja später selber auch mal
gebrauchen ...

 .... und tschüss

            Franklin




> ==================================
> rem ----------------------------------------------------------------------
> ' inserts a new row above the curent one
> ' and copies the formulas of the current row into it
> sub InsertRowWithFormula
> dim sRow
> dim oRow
> dim oSelection
> dim oSheet
> dim document   as object
> dim dispatcher as object
>
> rem ----------------------------------------------------------------------
> rem get access to the document
> document   = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
> oSelection = ThisComponent.CurrentSelection
> sRow = oSelection.getRangeAddress.StartRow
>
> oSheet = ThisComponent.CurrentController.getActiveSheet
> oRow = oSheet.getRows().getByIndex(sRow)
>
> ' select whole row
> ThisComponent.getCurrentController().select(oRow)
>
> rem ----------------------------------------------------------------------
> dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
>
> rem ----------------------------------------------------------------------
> dim args2(5) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "Flags"
> args2(0).Value = "F"
> args2(1).Name = "FormulaCommand"
> args2(1).Value = 0
> args2(2).Name = "SkipEmptyCells"
> args2(2).Value = false
> args2(3).Name = "Transpose"
> args2(3).Value = false
> args2(4).Name = "AsLink"
> args2(4).Value = false
> args2(5).Name = "MoveMode"
> args2(5).Value = 0
>
> dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args2())
>
> end sub
> ========================
>
> Grüße
> Helmut
> Am 25.07.2012 18:22, schrieb Franklin Schiftan:
> > Hallo Helmut,
> >
> > am 25.07.2012 um 17:57 Uhr schriebst Du:
> >
> > > Habe bereits etwas gefunden.
> >
> > Magst du uns nicht an deinen Erkenntnissen teilhaben lassen?
> >
> > > Grüße
> > > Helmut
> >
> >  .... und tschüss
> >
> >             Franklin
> >
> >
> >
> >
> > > Am 25.07.2012 17:15, schrieb Helmut Leininger:
> > > > Hallo,
> > > >
> > > > Ich habe eine Tabelle, wo auch ein Bereich (Excel: Datenbank) definiert
> > > > ist. In einigen Zellen einer Zeile habe ich Formeln.
> > > >
> > > > Nun hätte ich gerne, dass beim Einfügen einer neuen Zeile die Formeln
> > > > der darüberliegenden Zeile in die entsprechenden Zellen der neuen Zeile
> > > > kopiert werden, nicht aber die anderen Inhalte.
> > > >
> > > > Geht das?
> > > >
> > > > Vielen Dank
> > > > Helmut


-- 
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert