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.