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

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.

==================================
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