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