[de-users] Calc: Neue Zeile direkt unter Spaltenüberschrift-Zeile einfuegen

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