Calc: Neue Zeile direkt unter Spaltenüberschrift-Zeile einfuegen

de-users
#1

Hallo Andreas,

dieses Makro (s.u.) fügt nach der 1. Zeile (Index = 0) eine neue Zeile ein. "Y" ist dabei der Index der einzufügenden Zeile.

Makro über eine Schaltfläche ausführen: http://de.openoffice.info/viewtopic.php?t=65717

Gruß
Hans-Werner :-))

   Sub InsertRow

' https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1table_1_1XTableRows.html

      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

#2

OoOHWHOoO schrieb:

dieses Makro (s.u.) fügt nach der 1. Zeile (Index = 0) eine neue Zeile
ein. "Y" ist dabei der Index der einzufügenden Zeile.

Vielen Dank Hans-Werner :slight_smile:

Leider löst das Makro das Problem nicht, was ich beschrieben habe.
Wenn die Einfügemarke in der ersten Zeile steht, kopiert das Makro die
Formate der ersten Zeile.

Gruß, Andreas