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+h...@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
