Seite 1 von 1

[GELÖST] - Mehrere neue Zeilen einfügen

Verfasst: So 8. Nov 2020, 16:34
von morus88
Hallo,

ich habe mich heute neu in diesem Forum angemeldet. Das LibreOffice-Paket (Writer und Calc) benutze ich schon eine ganze Weile, aber bei den Feinheiten weiß ich nicht immer weiter. So auch jetzt mit folgendem Problem. Ich benutze LibreOffice Version 7.0.2.2 auf einem Linux-System.

In LibreOffice Calc habe ich eine längere Tabelle, etwa nach folgenden Muster:
Zeile_1
Zeile_2
Zeile_3
Zeile_4
Zeile_5
Ich möchte nun in diese Tabelle jeweils mehrere Leerzeilen zwischen die vorhandenen Zeilen einfügen, etwa nach folgendem Muster (im Beispiel sind es jeweils 3 Leerzeilen):
Zeile_1
<Leerzeile>
<Leerzeile>
<Leerzeile>
Zeile_2
<Leerzeile>
<Leerzeile>
<Leerzeile>
Zeile_3
.....
Nun kann man natürlich das Kontextmenü mit <Mausklick rechts auf eine Zeilennummer> und dann "Zeile oberhalb/unterhalb einfügen" nehmen und bekommt dann eine neue Zeile eingefügt. Man kann auch mehrere Zeilen markieren und dasselbe machen, dann bekommt man an der Stelle soviel neue Zeilen eingefügt, wie man alte Zeilen markiert hat. So weit, so gut.

Das ist aber nicht genau das, was ich erreichen will. Ich will zwischen den einzelnen Zeilen immer wieder eine bestimmte Anzahl von Leerzeilen haben. Man kann das natürlich mehrmals machen, aber bei einer umfangreichen Tabelle wird das einfach zu mühsam, wenn man das alles von Hand machen muß.

Frage: gibt es einen Befehl oder eine Methode, um das zu automatisieren?

Vielen Dank für Hinweise.

Re: Mehrere neue Zeilen einfügen

Verfasst: So 8. Nov 2020, 17:49
von Mondblatt24
Hallo,

Zeilen markieren und Strg++ drücken.

Gruß
Peter

Re: Mehrere neue Zeilen einfügen

Verfasst: So 8. Nov 2020, 18:02
von mikele
Hallo,
es ließe sich per Makro lösen:

Code: Alles auswählen

Sub Main
	'Anzahl einzufügender Zeilen
	n=3 
	'erste Zeilennummer (beginnend bei 1) nach der Zeilen eigefügt werden sollen
	abZeile=4
	'letzte Zeilennummer (beginnend bei 1) vor der Zeilen eigefügt werden sollen
	bisZeile=15
	'Zugriff auf Dokument
	odoc=ThisComponent
	oTab=odoc.sheets(0)
	oZeilen=oTab.Rows
	for i=0 to bisZeile-abZeile-1
		oZeilen.insertByIndex(i*(n+1)+abzeile,n)
	next
End Sub

Re: Mehrere neue Zeilen einfügen

Verfasst: Mo 9. Nov 2020, 11:35
von morus88
@mikele

Ich bedanke mich herzlich für das zur Verfügung gestellte Makro. Diese Makro-Funktionen von LibreOffice sind ein Punkt, mit dem ich mich bislang nur sehr wenig beschäftigt habe.

Frage deshalb als "[GELÖST]" markiert.

Re: [GELÖST] - Mehrere neue Zeilen einfügen

Verfasst: Sa 3. Jun 2023, 07:39
von auweia
vielen Dank @mikele 👍