Date: prev next · Thread: first prev next last
2018 Archives by date, by thread · List index


OoOHWHOoO schrieb:

wenn das Makro

Sub InsertRow
Dim oD as Object ' [object] Dokument
Dim oT as Object ' [object] Tabellenblatt
Dim oZ as Object ' [object] Zeile
Dim A as Long ' Anzahl
Dim Y as Long ' Y-Index (1.Zeile: Y=0)
oD = ThisComponent
oT = oD.Sheets(0)
oZ = oT.getRows
Y = 1
A = 1
oZ.insertByIndex(Y,A)
End Sub

die Zeile an der von Dir gewünschten Stelle einfügt, dann muss man nur 
noch die Zellen dieser Zeile entsprechend formatieren. Das kann man auch 
mit dem Makro gleich mit machen. 

Mit "Format" meinte ich nicht nur visuelle Merkmale, sondern auch
solche wie "Daten > Gültigkeit".

Es ist mir zu fehleranfällig und aufwändig sämtliche Merkmale der
Zeilen mit Einträgen auch über das Makro erneut zuweisen zu müssen.

Vielleicht gibt es einen anderen Ansatz, wo man die neue Zeile in
"unter Zeile 2 erzeugt" und sie danach "nach oben verschiebt".

Wenn ich mich richtig erinnere, gibt es ja Plugins ("CellMover" oder
so) für die in LO fehlenden Verschiebefehle.

Gruß, Andreas


-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.